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PREFACE 


In  May  of  1989,  the  U.S.  Army  Natick  Research  Development  and  Engineering 
Center  (Natick)  awarded  a  three-phase  research  and  development  contract  to 
Rutgers  University,  Food  Science  Department,  Contract  Number  DAAK60-89-C-1028 . 
During  the  period  31  May  1989  to  31  May  1991,  four  primary  investigators  and 
several  graduate  students  worked  on  the  project,  which  was  to  design  and 
fabricate  a  <xnpartmanted  tray  for  simultaneous  thermoprooessing  of  foods. 
This  report  is  a  result  of  their  work. 

Natick  Project  Officer  responsible  for  monitoring  this  contract  was  Ms. 

Lauren  Oleksyk  of  the  Subsistence  Protection  Branch  (SPB) ,  Food  Engineering 
Directorate  (FED) .  The  required  technical  support  was  provided  by  Mr.  Jay 
Jones,  also  of  SPB,  FED. 

Citation  of  trade  names  in  this  report  does  not  constitute  an  official 
endorsement  or  approval  of  the  use  of  such  items. 


ABBREVIATIONS,  ACRONYMS  AND  SYMBOLS 


i.e. 

that  is 

BBQ 

EVOH 

ethylene  vinyl  alcohol  copolymer 

FDA. 

Food  and  Drug  tehunistratian 

GE 

General  Electric 

Natick 

U.S.  Amy  Natick  Research,  Development  and  Engineering  center 

pp 

polypropylene 

PPO 

polyphynelene  oxide 

PS 

polystyrene 

FY 

polyester 

TSA 

tryptic-soy  agar 

°C 

degrees  Celsius 

aa 

centimeter 

Fo 

sterilization  value 

g 

grams 

min 

minute 

ml 

milliliter 

mm 

millimeter 

psig 

pounds  per  square  inch  (gauge) 

vi 


SUMMARY 


Concepts  were  developed  for  the  design  of  a  three-caipartraent  meal  tray 
that  could  be  used  for  simultaneously  thermal  processing  three  different 
foods.  Based  on  these  concepts,  computer  programs  were  written  to  calculate 
the  temperature  history  and  the  FQ  value  of  foods.  Computer  simulations  were 
conducted  to  obtain  several  optimum  tray  dimensions.  Subsequently,  prototype 
trays  based  on  these  optimum  tray  dimensions  were  made,  and  their  performance 
was  successfully  verified  with  experiments. 

Among  the  prototypes  was  the  "one-tray  design,"  which  was  flexible  enough 
to  accccmodate  all  the  menu  combinations  provided  by  Natick.  Without  this 
design,  different  trays  would  be  necessary  for  different  menus.  The  computer 
simulations  indicate,  at  least  theoretically,  that  this  one-tray  design  is 
capable  of  being  used  to  simultaneously  thermoprocess  three  different  foods. 
Specifically,  the  one-tray  design  uses  an  outer  tray  for  menus  consisting  of 
only  low-acid  foods,  or  the  same  outer  tray  with  an  insulated  inner  tray  for 
menus  consisting  of  both  high-  and  low-acid  foods. 

A  unique  feature  of  this  one-tray  design  is  that  it  uses  multilayered 
pulped  cellulose  material  to  insulate  the  inner  tray.  The  multilayered  pulped 
cellulose  serves  not  only  as  an  insulator  to  protect  the  heat-sensitive  food 
inside  the  inner  tray  during  retorting,  but  also  as  a  napkin  during  meal  time 
for  the  soldier.  The  napkin  also  has  the  advantage  of  being  an 
environmentally-friendly,  degradable  product. 


DESIGN  OF  THE  CtMPARIMENIED 


MEAL  TRAY  FOR  SIMUiaANECJOS 
THEFM3IROCESSING  OF  POODS 


IOTRCCUCriCN 

The  objective  of  this  project  was  to  design  and  fabricate  a  polymeric, 
caspartmented  tray  with  a  hermetically  sealable  lid  that  can  be  used  to 
simultaneously  heat-process  an  entire  meal  consisting  of  an  entree,  starch,  and 
dessert,  such  that  each  food  component  receives  the  acceptable  sterilization 
value  (FQ) .  Since  the  food  components  can  have  different  heat  sensitivities, 
they  must  be  selectively  heat-processed .  To  achieve  this  objective,  two 
methods  were  tested:  varying  the  initial  temperatures  of  the  individual  foods 
at  the  start  of  the  retort,  and  controlling  the  heat  conduction  process. 
Although  the  first  method  required  a  shorter  process  time  and  allowed  more 
eccnctaical  package  designs,  previous  data  (with  chili  con  came,  white  rice  and 
peach  slices)  indicated  that  simultaneous  heat  processing  of  the  meal 
components  was  not  feasible  by  adjusting  the  initial  temperatures  of  the  meal 
components  alone.1  This  conclusion  was  generally  true  for  other  combinations 
consisting  of  both  high-  and  lcw-acid  components.  The  second  method  was 
implemented  by  applying  a  layer  of  insulation  on  the  outside  surfaces  of  the 
ccrponent  which  had  the  least  process  lethality.  Since  previous  data  showed 
that  this  method  was  effective,  it  was  applied  in  this  project  to  a  wide 
combination  of  food  items.  The  prototype  packages  were  designed  according  to 
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i  the  specifications  in  the  solicitation  document  and  FDA  regulations. 

This  project  was  inplementsd  in  three  phases  over  a  period  of  two  years. 
Ehase  I  efforts  covered  four  areas:  development  of  computer  programs,  package 
design,  verification  of  computer  predictions  with  experimental  data  and 
ccnputer  simulations.  Riase  II  involved  working  closely  with  packaging 
equipment  manufacturers  to  design  and  manufacture  initial  prototype  trays  and 
molds.  Prototype  trays  were  tested  and  a  one-tray  design  was  finalized.  Phase 
IH  consisted  of  the  fabrication  of  200  caipartmented  trays  of  Idle  final 
design. 

This  report  is  divided  into  three  individual  technical  reports,  one  for 


each  phase  of  the  contract 


EHftSE  I 


DESIGJ  OF  A  CCMPARIMENIED  TRAY 

INTRODUCTICN 

The  objective  of  Ehase  I  was  to  design  a  cxmpartmented,  thermostabilized 
polymeric  meal  tray,  with  a  hermetically  sealable  lid,  which  can  be  used  to 
simultaneously  thermal  process  three  different  foods.  A  major  task  in 
accomplishing  this  objective  was  to  develop  a  heat-transfer  model  and  conduct 
experiments  to  test  its  validity.  Ehase  I  activities  included  the  development 
of  oonputer  programs  to  calculate  the  temperature  history  (heating  and  cooling 
profiles)  and  lethality  values  (Fq)  of  foods  inside  a  tray  during  the  retort 
process;  incorporation  of  an  optimization  subroutine  into  the  program  for 
estimating  the  convective  heat  transfer  coefficients;  estimation  of  thermal  and 
physical  properties  of  foods;  verification  of  theoretical  predictions  with 
experiments;  development  of  several  tray  design  concepts;  conduction  of 
computer  simulations  to  optimize  the  tray  dimensions;  and  recommendation  of 
several  tray  designs. 

I 

TECHNICAL  APPROACH 


A.  OCMHJTER  MODELING 

A  canputer  program  based  on  a  model  describing  the  heat  transfer  in  an 
infinite  slab  was  developed.  The  partial  differential  equation  of  the  model 
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was  solved  with  an  explicit  finite  difference  method.  The  model  had  the 
advantage  that  its  boundary  conditions  could  be  modified  easily.  Early  in 
Riase  I,  the  computer  program,  based  on  this  model,  was  used  to  simulate  heat 
transfer  in  plastic  containers  with  only  one  compartment.  The  model  was  later 
refined  to  describe  the  three-dimensional  heating  and  cooling  profiles  of  foods 
inside  a  ccnpartmented  tray  during  the  retort  process.  This  was  done  by 

•  incorporating  other  necessary  features  into  the  model,  such  as  the  geometry  of 

the  tray  and  the  thickness  of  insulation  material,  for  predicting  heat  transfer 
in  trays  with  three  catpartments. 

1.  Three-Dimensional  Heat  Transfer: 

The  model  was  extended  from  one-dimensional  to  three-dimensional,  which 
more  realistically  described  the  unsteady  state  heat-transfer  process  of  food 
in  a  brick-shaped  package.  Two  complementary  ccnputer  programs  were 
developed;  one  based  on  an  analytical  solution  and  the  other  based  on  a 
numerical  solution.  The  model  that  uses  the  analytical  solution  is  based  on 
Newman's  multiplication  rule  of  one-dimensional,  unsteady  state,  heat 
conduction  equation.  This  solution  assumes  that  the  overall  heat  transfer 
coefficient  is  the  same  for  all  sides  of  the  tray,  that  the  tray  and  lid  have 
the  same  thickness  if  they  are  made  of  the  same  material,  and  that  the 
temperature  profile  is  symmetrical  along  the  three  axes.  It  is  noteworthy  that 
the  latter  consequence  is  desirable  because  it  means  the  foods  inside  the  tray 

i 

are  thermally  processed  more  uniformly.  Appendix  A  contains  a  description  of 
the  program  and  related  codes.  The  analytical  program,  originally  written  in 
BASIC,  was  later  converted  into  FORTRAN  codes  for  faster  compilation  and 
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execution.  The  overall  flow  diagram  for  the  simulation  model  is  shewn  in 
Figure  1,  and  the  flow  diagram  for  estimating  the  process  time  and  insulation 
thickness  is  shown  in  Figure  2.  Appendix  B  presents  a  sample  output  for 
predicting  the  process  time  and  the  insulation  requirement  for  thermally 
processing  a  three-<xnpartioent  tray  containing  beef,  rice  and  pears. 


Figure  1.  Flow  Diagram  for  Caiputer  Modeling  and  Simulation 


Figure  2,  Estimation  of  Proper  Process  Tima  and  Insulation 
Thickness  for  Concartmented  Polymeric  Tray 


Hie  axplementary  program,  written  in  FORTRAN,  was  also  developed  to 
provide  a  numerical  solution  for  the  same  problem  using  the  explicit  finite 
difference  method.  With  this  program,  the  tray  and  the  lid  were  not  limited  to 
having  the  same  thickness,  and  the  output  of  the  program  could  be  used  to  check 
against  that  of  the  first  ccnputer  program  for  consistency.  However,  this 
program  solution  required  longer  corputation  time  than  the  first  program. 
Results  from  both  the  analytical  and  numerical  programs  were  shewn  to  have  good 
correlation. 

2.  Optimization  Subroutine: 

The  optimization  subroutine  estimated  the  overall  heat  transfer 
coefficient,  U,  which  was  an  inportant  parameter  in  characterizing  the  tray 
geometry  and  the  retort  environment.  The  optimization  technique  was  based  on 
minimizing  the  sums  of  squares  error  (Figure  3) . 


B. 


PHYSICAL  PROPERTIES  DATA 


Thermophysical  properties,  such  as  specific  heat  capacity,  thermal 
conductivity,  and  thermal  diffusivity,  were  estimated  with  software  developed 


by  European  Cooperation  in  Scientific  and  Technical  Research  (COST) ,  and  were 
based  cn  water,  carbohydrate,  protein  and  lipid  contents  of  a  given  food.  A 
series  of  experiments  were  also  conducted  to  measure  the  actual  specific  heat 


capacity,  thermal  conductivity  and  thermal  diffusivity  of  foods  supplied  by 
Natick.  Preliminary  data  suggested  that  the  experimental  values  for  most  of 
the  foods  agree  within  10%  of  the  theoretical  values  calculated  by  the  OOST 
program.  Therefore,  before  all  of  the  experimental  values  were  available,  this 
program  was  used  to  calculate  the  thermal  properties  of  foods  used  in  the  tray 
designs  described  in  Section  F.  Calculated  properties  are  listed  in  Table  1. 
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Figure  3.  Estimation  of  the  Overall  Heat  Transfer  Coefficient,  U  (cant.) 


1.  Equipment  Purchased  and  Installed: 

An  Omega  White  Bax  high  resolution  data  acquisition  system  with  an  NEC  12 

} 

MHz  286  computer  was  purchased  and  installed  for  storing  and  manipulating 
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experimental  data  obtained  from  a  still  retort.  For  computer  simulations,  an 
HDS  graphic  terminal  was  connected  via  a  modem  to  the  VAX  mainframe  computer  at 
Rutgers  University. 


Table  1.  Thermal  Properties  Calculated  from  COST  Program 


Item  Composition  (%)  Thermal  properties 


Water 

Protein 

Fat 

Ash 

Carbohydrate 

k 

a 

Pork 

63.28 

16.57 

11.14 

1.43 

7.59 

0.5339 

1.521xl0-7 

Rice 

64.99 

2.52 

5.04 

0.92 

26.44 

0.5622 

1.591xl0"7 

Apple 

72.81 

0.27 

0.89 

0.24 

25.71 

0.6004 

1.622xl0-7 

Chili 

65.38 

13.13 

13.60 

1.04 

6.86 

0.5381 

1.533xlO-7 

Peach 

81.13 

0.49 

0.13 

0,17 

18.00 

0.6295 

l.635xlO-7 

Beef 

73.56 

11.40 

5.59 

1.57 

7.89 

0.5853 

l.573xlO-7 

Fruit 

80.88 

0.39 

0.21 

0.15 

18.28 

0.6285 

1.635x1  O'7 

Chocolate 

54.15 

1.50 

1.96 

1.07 

41.23 

0.5291 

1.580xl0'7 

Hamburger  69.13 

17.57 

11.47 

1.71 

0.13 

0.5534 

1.53lxlO*7 

Carrot 

92.63 

0.86 

0.14 

0.97 

5.32 

0.6650 

1.648xl0'7 

k  =  thermal  conductivity  [J/msec'K] 
a  =  thermal  diffusivity  [m2/sec] 


2.  Preliminary  Experiments  and  Results: 
a.  Temperature  profiles: 

Two  sizes  of  plastic  containers,  with  inside  dimensions  of  30  by  70  by 
118  mm  and  26  by  92  by  136  mm,  were  provided  by  Natick  for  preliminary 
experiments.  To  measure  the  temperature  profiles,  thermocouples  were  inserted 
at  the  thermal  center  of  each  container  as  well  as  at  two  other  nodal  points. 
The  containers  were  then  filled  with  a  10%  bentonite-water  dispersion  and  heat 
sealed  with  a  trilaminate  material  containing  aluminum  foil.  A  bentonite-water 
system  was  chosen  as  a  food  model  because  of  its  good  chemical  stability,  lew 
cost  and  versatility  in  a  wide  range  of  food  applications.  Ftwr  containers 
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(two  of  each  size  described  above)  were  placed  inside  the  still  retort 
operating  with  hot  water  at  121°C.  After  the  containers  were  processed  for 
one  hour  at  121°C  and  40  psig,  cold  water  (25°C)  was  introduced  into  the 
retort  to  complete  the  process  cycle.  As  an  exauple  of  the  results  obtained, 
the  heating  curve  for  a  30  by  70  by  118  ran  container  (Figure  4)  shows  that  the 
center  temperature  (Curve  2)  continued  to  rise  for  three  more  minutes,  even 
after  the  cooling  phase  began  (Curve  1) .  This  suggested  that  the  heat  inside 
the  container  was  transferred  mainly  by  conduction.  Also  shown  in  Figure  4  are 
computer  predictions  of  the  heating  curves  with  various  overall  heat  transfer 
coefficients,  U  (curves  3,  4  and  5) .  By  trial -and-error,  it  was  discovered 
that  the  prediction  with  U=50  W/m2K  yielded  the  best  result  (Curve  5) .  Thus, 
with  proper  selection  of  U  values,  the  computer  program  can  accurately  predict 
the  behavior  of  heating  curves  during  the  retort  process. 


Figure  4.  Experimental  and  Predicted  Heating  Curves  (Bentonite) 
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b.  Heat  penetration  rate: 

The  heat  penetration  rate  through  a  container  during  the  retort  process 
depended  on  the  size  of  the  container  and  the  overall  heat  coefficient  (U)  of 
the  container.  Hie  heat  coefficient  (U)  also  depended  an  the  material  of  the 
container,  the  retort  conditions,  and  the  amount  of  head  space  in  the 
container.  An  important  task  in  the  experimentation  was  to  estimate  the 
overall  heat  transfer  coefficient  (U)  from  the  heating  and  cooling  curves 
obtained  from  retort  experiments.  A  retort  manufactured  by  STOCK  was  operated 
in  the  still  mode  at  a  temperature  of  121. 1°C,  with  a  heating  time  of  60 
minutes  and  cooling  time  of  20  minutes,  respectively.  Hie  containers  used  were 
provided  by  Natick  and  had  dimensions  of  approximately  120  by  80  by  35  mm.  The 
containers  were  filled  with  10%  bentonite  suspension  in  water  (thermal 
conductivity,  k=0.637  W/m°K  and  thermal  diffUsivity,  oc=i.587e-7  m2/s)  to 
simulate  food,  and  then  covered  with  plastic  lids  of  the  same  material  and 
thickness  of  the  container  to  provide  uniform  heat  resistance  for  all  the 
surfaces.  Five  thermocouples  were  placed  inside  the  container,  at  locations  of 
1.15,  1.55,  1.75  (geometric  center),  1.95,  and  2.35  ran,  to  monitor  the 
temperature  profile  of  the  container  during  both  the  heating  and  cooling 
phases.  Hie  thermocouples  were  held  in  place  by  a  Teflon  insert  adhered  to  the 
walls  of  the  container  by  silicon  adhesive. 

With  the  aid  of  the  computer  program,  the  overall  heat  transfer 
coefficient  was  obtained  from  the  experimental  heating  and  cooling  curves.  Hie 
overall  heat  transfer  coefficient  was  fed  back  to  the  program  to  generate  the 
theoretical  predictions.  As  presented  in  Figure  5,  there  was  good  correlation 
between  the  experimental  data  and  the  predicted  data. 
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Figure  5.  Experimental  Versus  Predicted  Data 
3.  Effect  of  Head  Space: 

Be  amount  of  head  space  in  the  tray  was  an  important  design  consideration 
typify,  it  can  greatly  affect  the  heat  penetration  rate  during  the  retort 
process.  To  quantify  the  influence  of  the  head  space,  a  series  of  experiments 
were  where  the  head  space  inside  a  bentonite-filled  container  was 

carefully  adjusted  to  a  specified  height.  The  container  was  then  immersed  in 
warm  water  (55°C)  and  the  temperature  at  five  nodes  was  monitored  over  time 
by  a  data  acquisition  system.  The  head  spaces  used  in  these  experiments  had 
the  heights  of  0,  0.05  and  2.00  mm.  To  caipare  the  data  from  different  heights 
of  head  space,  the  temperatures  at  each  node  were  averaged  over  a  15-20  minute 
interval.  Figure  6  shows  these  average  temperatures  as  functions  of  the  height 
of  the  head  space  and  the  location  of  the  node.  Also  shewn  are  the  true 
thermal  centers  for  each  head  space  (located  at  the  minimum  of  the  second  order 
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polynomial  regression  line  which  connect  the  average  nodal  temperatures)  along 
with  the  location  of  the  geometric  center.  It  can  be  seen  that  a  small  charge 
in  head  space  could  change  the  location  of  the  thermal  center  significantly. 
This  information  was  incorporated  in  the  final  design  of  the  cxxnpartanerrted 


tray. 


averace  temperatures  at  nodes  ro 


&  8 


0  mm  head  space 
U.05  rmn  head  space 

2  rmn  head  space 


Figure  6.  locations  of  Thermal  Center  Versus  Head  Space 
D.  TRAY  DESIGN  CONCEPTS  AND  INSUIATION  MATERIALS 

The  existing  designs  of  commercial  ccnpartmented  trays,  available  in  this 
country  and  in  Europe,  were  reviewed.  Insulation  materials  suitable  for 
protecting  heat-sensitive  components  in  the  thermostabilized  meal  trays  were 
sought.  Insulation  materials  were  required  to  be  FDA  approved,  able  to 
endure  the  retort  process  and  provide  effective  insulation.  One  potential 
insulation  material  that  was  identified  included  a  heat-resistant,  expanded 
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polyphynelene  oxide  (FPO) /styrene  foam  developed  by  General  Electric  (GE) 
Plastics.  Different  grades  of  expanded  polystyrene  and  other  FDA  approved 
insulation  materials  were  examined  for  performance  at  a  later  date. 

The  principles  of  enhanced  conduction  and  insulation  were  explored  in  this 
phase  to  rrrdlfy  the  heat  processing  of  foods.  Several  tray  design  concepts  for 
simultaneously  processing  different  food  items  were  developed  and  are  outlined 
below. 


1.  Conduction: 

Fbr  enhanced  conduction,  conducting  fins  may  be  used  to  shorten  the 
processing  time  of  heat-resistant  foods.  In  this  design,  conductive  fins  are 
inserted  into  the  compartment  cxxrtaining  the  food  which  requires  the  most  heat, 
to  enhance  heat  transfer  (Figure  7) .  Ihe  fins  must  have  good  heat  ocnductivity 
and  be  ccnpatible  with  the  food  in  the  tray  axpartment. 


top  view- 


side  VIEW 


Conducting  fins 

Figure  7.  Heat-Transfer  Enhancement  With  Conductive  Fins 
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2.  Insulation: 


Pea:  insulation,  three  design  concepts  have  been  developed  to  avoid 
overprocessing  of  acid  foods: 


a.  Insulation  with  processing  rack:  A  specially  designed  processing  rack 
may  also  be  used  to  selectively  insulate  the  ccnpartaent  containing  the  heat 
sensitive  feed  (Figure  8) .  The  advantage  of  this  concept  is  that  the  tray  does 

net  require  the  insertion  of  extra  insulation  or  coniuctive  elements.  The 

y 

disadvantage  is  the  capital  cost  for  producing  the  processing  racks.  Also, 
since  the  processing  rack  concept  deviated  from  the  original  contract  proposal, 
it  was  considered  only  as  a  potential  alternative  which  would  require  further 
investigation. 


Figure  8.  Insulation  With  Processing  Back 
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The  other  two  design  concepts  apply  an  insulation  feature  directly  to 
the  tray  design.  There  are  two  trays  involved,  in  this  concept,  a  caxpartmented 
outer  tray  and  an  inner  tray,  as  shewn  in  Figure  9.  The  crapartment  containing 
the  more  heat-sensitive  food  is  thermally  protected  by  an  insulation  insert  and 
an  air  space  between  the  inner  and  cuter  tray.  The  thickness  of  the  insulation 
and  air  space  may  be  estimated  by  the  ocnpufcer  simulation  model.  The  two 
designs  based  on  this  concept  are  outlined  below. 


Figure  9.  Insulation  Insert  With  Inner  Tray 

b.  Insulation  with  heat-resistant  foam:  The  outer  tray  is  themofonaed 
into  three  ocupartments;  one  for  the  entree,  one  far  the  starch,  and  one  for  a 
foamed  inner  tray  which  contains  the  heat-sensitive  dessert  (Figure  10) .  The 
cuter  tray  is  Bade  of  a  multilayer  coextrusion  of  structural  polypropylene  (PP) 
and  high-barrier  ethylene  vinyl  alcohol  (EVOH)  polymers. 
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Die  inner  tray  is  made  of  a  foam  material  which  is  used  to  provide  heat 
resistance  to  the  sensitive  food  contained  in  the  tray  during  retorting.  An 
advantage  of  using  an  inner  tray  is  that  it  offers  the  soldiers  the  choice  of 
removing  the  dessert  from  the  outer  tray  before  reheating.  It  is  necessary  to 
seal  the  inner  tray,  as  well  as  the  outer  tray,  with  lids.  Because  the  lid  for 
the  inner  tray  does  not  provide  sufficient  heat  resistance,  a  piece  of  foam  may 
be  needed  to  place  on  top  of  the  lid  to  provide  additional  insulation. 

c.  Insulation  with  napkin  material::  The  outer  tray  is  thermofonned  in  the 
same  shape  and  with  the  same  material  as  described  in  paragraph  b  above. 
However,  instead  of  using  a  foam  material  to  provide  the  needed  insulation, 
this  design  incorporates  a  paper  napkin  material  which  is  used  to  wrap  around 
the  inner 

tray  (Figure  10) .  The  napkin  is  an  inexpensive,  food  compatible,  insulation 
material  which  also  provides  the  soldier  with  convenience  at  meal  time,  and  is 
environmentadly-friendly  because  of  its  degradable  nature.  Since  it  is  already 
protected  by  the  outer  tray,  the  inner  tray  may  be  made  of  less  expensive 
packaging  material  such  as  polypropylene  •  No  additional  insert  is  needed  to 
place  on  tcp  of  the  inner  tray  because  the  entire  tray  is  already  protected  by 
the  napkin.  The  use  of  the  napkin  seems  to  provide  the  best  features  among  the 
design  concepts  considered.  Note  in  the  designs  described  in  paragraphs  b  and 
c  that  only  the  ccnpartment  which  contains  the  dessert  is  heat  insulated.  TO 
reconcile  the  differences  in  thermal  properties  between  the  other  two  foods 
(entree  and  starch)  in  the  other  two  compartments,  the  dimensions  of  the 
oonpartments  were  used  as  a  design  variable  to  avoid  over-  or 
under-processing. 
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Figure  10.  Insulation  Methods  for  Inner  Tray 


E.  OPTIMIZATION  OF  TRAY  DESIGNS 

Die  tray  design  which  utilizes  heat-resistant  foam  (to  insulate  the  dessert 
compartment)  was  optimized  using  the  cmputer  programs  along  with  the 
relationships  and  constraints  listed  in  Table  2. 
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Design  variables: 

Insulation  thickness  (I) 

Height  of  the  outer  tray  (H) 

Width  of  starch  catpartrcnt  (W^) 

Design  variables  and  related  equations: 

Volume  of  entree  cxaj|>artr>ent?=326 . 0  ml 
Volume  of  starch  c»BRartmer^326.8  ml 
Volume  of  dessert  a*partmient?s226.8  ml 
Gap  between  crcpartments  (g)=0.8  cm 
Height  of  desert  tray  (H^)»H-2I 
length  of  starch  ocn^artment  (1^=226.8/ (HW^) 

Width  of  dessert  ocnpartment  (VG)=w_j-2I 
length  of  dessert  ccopartment  (%)«226.8/(RJWd) 

Length  of  entree  (xmpartment  (Lb)=gfIte+Lj+2i 
Width  of  entree  cccpartment  (we>=326.o/(IeH) 

Taroet  sterilizinci  values: 

'  For  lcv-racid  fgpd  F^121.10C)=6,1,  z  value  of  10° 

For  acid  food  Fp(10u°C)=3.1,  z  value  of  10°C 

Constraints  for  design  variables: 

1  mm  <  I  <  4  mm 

2  cm  <  H  <  4.  cm 

6  cm  <  W^j  <  12  Ott 

constraints  for  dependent  variables; 

20  an  <  <  35  cm. 

2  cro  <  <  4  cm. 

20  min  Oieat  processing  time  <  100  min 

6.0  <  F--  <  8.0 

6.0  <  Fig  <  8.0 

91.o9c  vFinal  temperature  of  acid  dessert  <  121. 1°C 

*Qbjectiyf„  furKftion  =  AteJF^-.. 6. 1)  +.  Abs^^r  6.1).  +  Abs(Frf-  3.1 

foiracid  foods  or  6^1 '  for  low-acid  roods) 

*Nonlineair  numerical  optimization  with  complex  method  was  used  to  minimize 
the,  objective  function  by  searching  the  design  variables.) 


f.  pesighs 

Menus  Selected: 

Tray  designs  were  optimized  for  the  menu  combinations  listed  in  Table  3 


1. 


Note  that  Menus  1,  3  and  8  contain  high-  and  low-acid  foods,  and  Menu  11 
contains  only  low-acid  foods. 

Table  3.  Selected  Menu  Ccmbinations 

Menu#  Entree  starch  Dessert 

1  Park  BBQ  Sauce  Rice  Apple  Dessert 

3  Chili  con  Came  Riae  Peach  Slices 

8  Beef  Stew  Chocolate  Pudding  Fruit  Mix 

11  Hamburgers  Rice  Carrot  Slices 

2.  Tray  Dimensions: 

Listed  in  Tables  4  through  g  are  the  tray  dimensions,  sterilization  values, 
insulation  thicknesses  and  processing  times  obtained  from  computer  simulations 
(with  the  optimization  scheme)  conducted  on  Menu  numbers  1,  3,  8  and  11. 

Figures  11  through  16  show  the  corresponding,  actual  sizes  of  the 
compartments.  The  sterilization  value  calculated  for  the  acid  dessert  was 
based  on  a  lower  temperature  (100°C)  than  temperatures  used  for  the  entree 
and  the  starch  (121. 1°C) . 

a.  Insulation  with  foam  (Menu  No.  1)  t 

The  foam  is  assumed  to  have  the  thermal  conductivity  of  polystyrene, 
0.0419  W/m°K.  Table  4  and  Figure  11  describe  the  tray  dimensions  for  Menu 
No.  1. 

b.  Insulation  with  napkin  (Menu  Nos.  1,  3  and  8)  s 

The  napkin  is  assumed  to  have  the  thermal  conductivity  of  paper,  0.130 
W/m°K.  Table  5  and  Figure  12  describe  the  tray  dimensions  for  Menu  1.  Table 
6  and  Figure  13  describe  the  tray  dimensions  for  Menu  3,  and  Table  7  and  Figure 
14  describe  the  tray  dimensions  for  Menu  8. 
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Tfebie  4.  Eray  Dimensions  for  MENU  #1  (Insulated  with  Foam) 

Contents: -Pork  BBQ  sauce,  rice,:and  apple  dessert 
Compartment  Dimensions 

22.36  X  5.85  x  2.49  cm  (for  entree) 

10.09  x .  9.02  x  2.49  cm  (for  starch) 

1.1.26  x  S.^l  x  229  cm  (for  dessert) 

Insulation,  thickness:  0.10  cm 

Processing  time:  33.Dminutes 

%  values:  F,*  *  6.95  "(entree) 

Fpf  =  6.10  (starch) 

Fpd  *  3:09  (dessert)  based  on  100  °C 

Final  dessert  temperature  100.1  °C 


Figure  11-  Tray  Dimensions  for  MENU  #1  -  with  Inner  Foam  Tray 
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Table  5.  Tray  Dimensions  far  MENU  #1  (Insulated  with  Napkin) 

Contents:  Pork  with  BBQ  sauce,  rice,  and  apple  dessert 


Compartment  Dimensions 


21,05 

X 

5.25  x 

2.95 

cm 

(for  entree) 

7.84 

X 

9.80  x 

2.95 

cm 

(for  starch) 

11.63 

X 

9.02  x 

2.16 

cm 

(for  dessert) 

Insulation  thickness; 

0.399  cm 

Processing  time: 

39.3  minutes 

Fp  values: 

Fpe  * 

7.9 

(entree) 

FpS  » 

6.1 

(starch) 

Fpd  =■ 

7,6 

(dessert) 

based  on  100 

Final  dessert  temperature  100, 1  °C 


Figure  12.  Tray  Dimensions  far  MENU  #1  -  Insulated  with  Napkin 
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Table  6.  Tray  Dimensions  for  MENU  #3  (Insulated  with  Napkin) 
Contents:  Chili,  rice,  peach  slices 


Compartment  Dimensions 


20.89  x 

5.24  x 

2.98 

cm 

(for  entree) 

7.83  x 

9.72  x 

2.98 

cm 

(for  starch) 

11.49  x 

8.95  x 

2.21 

cm 

(for  dessert) 

Insulation  thickness: 

0.386  cm 

Processing  time: 

39.7  minutes 

Fp  values: 

Fpc  - 

8.0 

(entree) 

Fps  = 

6.1 

(starch) 

* 

Fpd  ■ 

6.4 

(dessert) 

based  on  100  °C 

Final  dessert  temperature  99.4  °C 


Figure  13.  Tray  Dimensions  for  MENU  #3  -  Insulated  with  Napkin 
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Table  7.  Tray  Dimensions  for  MENU  #8  (Insulated  with  Napkin) 

Contents:  Beef  stew,  fruit  mix.  chocolate  pudding 


Compartment  Dimensions 


20.63 

X 

5.47  x 

2.89 

cm 

(for  entree) 

7.62 

X 

10.31  x 

2.89 

cm 

(for  starch) 

11.41 

X 

9.51  x 

2.09 

cm 

(for  dessert) 

Insulation  thickness: 

0.399  cm 

Processing  time: 

3S.2  minutes 

Fp  values: 

Fpc  = 

7.7 

(entree) 

Fp*  " 

6.1 

(starch) 

Fpd  * 

5.5 

(dessert) 

based  on  100  °C 

Final  dessert  temperature 

98.9  °C 

Figure  14.  Tray  Dimensions  for  MENU  #8  -  insulated  with  Napkin 
c.  No  insulation  (Menu  No.  11) : 

For  a  ccirpartmented  tray  containing  only  low-acid  foods  with  similar 
heat  sensitivities,  no  insulation  was  required.  Table  8  and  Figure  IS  describe 
the  tray  dimensions  for  Menu  11. 
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Table  8.  Tray  Dimensions  for  MEMO  #11  (Low-Acid  Foods,  No  Insulation} 
Contents:  Hamburger,  rice,  carrot  slices 
Compartment  Dimensions 

20.98  x  6.45  *  2.41  cm  (for entree) 

10,09  x  9.33  x  2.41  cm  (for  starch) 

10.09  x  9.33  x  2.41  cm  (for  vegetable) 


Insulation  thickness: 

0cm 

Processing  time: 

31.9  minutes 

Fp  values: 

Fpe  *  6:4 

(entree) 

Fps  *  6.2 

(starch) 

s' 

n 

p\ 

(vegetable)  based  on  131. 1°C 
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DISCUSSION 

Selective  heating  of  the  food  cxxrponents  was  achieved  by  designing  the 
proper  tray  dimensions  and  selectively  using  insulation  with  an  inner  tray. 

The  use  of  the  inner  tray  and  insulation  was  found  to  be  necessary  because 
changing  the  tray  dimensions  alone  was  not  sufficient  to  achieve  the  desirable 
range  of  sterilization  values  for  both  high-  and  low-acid  foods.  For  best 
results,  a  different  tray  was  designed  for  each  menu. 

For  combinations  of  high-  and  lcw-acid  foods,  the  tray  designs  shown  in 
Figures  11  through  14  show  very  similar  dimensions.  Therefore,  it  was 
determined  possible  to  have  one  design  (consisting  of  outer  and  inner  trays)  to 
accommodate  several  menus.  For  all  lcw-acid  foods,  it  was  determined  possible 
to  use  only  an  outer  ccnpartmented  tray. 

The  compartment  designed  for  the  entree  had  a  very  slender  dimension 
(Figures  11  through  15)  which  may  create  problems  during  filling  of  certain 
foods.  To  correct  this  problem,  new  computer  simulations  were  conducted  with  a 
constraint  imposed  in  the  optimization  scheme  on  the  ratio  of  the  width  and 
length  dimensions  of  the  entree  ocnpartment  (W^I^) .  The  ratio  of 
Wq/I^  for  Figures  11  through  15  was  set  at  approximately  0.25.  Table  9  and 
Figure  16  depict  this  tray  for  Menu  1  with  the  additional  constraint  of 

Wg/1^,3. 

A  number  of  manufacturers,  such  as  DuPont,  Multivac,  and  Mahaffy  and  Harder 
were  visited  to  discuss  the  tray  design  concepts  identified  above  and  the 
feasibility  of  manufacturing  such  trays.  General  Plastics  also  agreed  to 
provide  a  PPO/PS  foam  tray  material  for  testing,  although  it  was  not  yet 
approved  by  FDA  for  food  contact. 
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Table  9.  Tray  Dimensions  for  MEM)  #1 
(Inner  Tray  Insulated  with  Napkin,  W^T^-0.3) 
Contents:  Pori  BBQ  sauce,  rice,  and  apple  dessert 
Comp  inmem  Dimensions 

20.00  x  6.00  x  2.22  cm  (for  entree) 

7.56  x  11.10  x  2.72  on  (for  starch) 

10.93  x  10.33  x  2!01  an  (fordessert) 


Insulation  thickness: 

0.354  cm 

Processing  time: 

36.0  minutes 

Fp  values: 

Fpe  »  6.6 

(entree) 

Fp*  «  6.1 

(starch) 

Fpd  =  9.7 

(dessert)  based  on  100  °C 

Final  dessert  temperature 

101.5  °C 

Figure  i6.  Tray  Dimesion 
for  MENU  #  1 — Insulatet 
with  Napkin,  We/Le  =  0.. 


Pork  BBQ  Sauce 

Compartment  Dimensions 

20.0*60*2.7  cm 


Figure  16.  Tray  Distensions  for  MEMJ  #1  (Wq/I^-O.S) 
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In  preparation  for  Etaase  II  prototype  testing,  it  was  determined  that 
therraoforming  molds  would  be  made  to  fabricate  the  tray  designs  shown  in 
Figures  11,  14,  15  and  16.  These  designs  were  selected  because  they  best 
represented  the  various  concepts  presented  in  Ehase  I. 


PHASE  II 


FABRICATION  OF  EWOTOTYIE  MOTES  AND  ISAYS 


INTRODUCTION 


The  objective  of  Phase  IX  was  to  demonstrate  the  tray-design  concerts, 
outlined  in  the  Phase  I  report,  by  fabricating  prototype  molds  and 
cxmpartmented  trays.  Two  variables  were  used  in  the  design  of  prototype 
trays:  the  tray  dimensions  and  the  use  of  paper  napkins  as  insulating 
material.  Both  of  these  variables  were  shewn  to  affect  heat  penetration  during 
the  retort  cycle.  Retort  experiments  were  conducted  using  the  prototype 
cotpartmented  trays  to  measure  the  temperature  profiles  and  heat  penetration 
values  (Fp)  for  the  food  items  in  each  compartment.  Conputer  simulations 
were  conducted  on  suggested  menu  combinations  provided  by  Natick.  Experimental 
data  on  the  thermal  diffusivity  and  density  of  the  suggested  foods,  and  the 
thermal  conductivity  of  the  napkin  insulation  material  were  also  obtained.  In 
order  to  accurately  obtain  experimental  data  on  the  thermal  diffusivity  of 
suggested  food  components,  a  simple  method  for  measuring  thermal  diffusivities 
of  homogeneous  and  nonhemogeneous  foods  was  designed.  A  technical  report  was 
prepared  on  this  method  and  is  included  in  Appendix  F.  Towards  the  end  of 
Phase  II,  the  range  of  possible  tray  designs  was  narrowed  to  an  optimal 
"one-tray  design"  which  could  be  used  to  simultaneously  thermal -process  a  wide 
variety  of  menus. 
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TECHNICAL  APPROACH 


A. 


mips  AND  TKAYS 


1.  Materials  Used: 

Two  thicknesses  of  high  barrier  plastic  sheet  stock  material 
(PP/adhesive/EVCSVaclhesive/PP)  were  used  to  fabricate  the  conpartmented  trays. 
The  first  sheet  material  had  a  total  thickness  of  28  mils  and  was  obtained  from 
the  Quantum  Chemical  Corporation.  The  second  material  had  a  total  thickness  of 
52  mils  and  was  obtained  front  the  American  National  Can  Company.  A  trilaminate 
consisting  of  aluminum  foil  and  plastic  film  was  used  as  the  lid  material,  and 
a  ocmnercial  paper  napkin  was  used  as  the  insulation  material. 


2.  Molds  and  Trays: 

As  a  result  of  Phase  I  efforts,  three  tray  designs  which  could  be  used  for 
the  simultaneous  thermal  processing  of  different  foods  were  recommended:  (1)  a 
conpartmented  tray  with  a  separate  inner  tray  containing  the  dessert  item, 
wherein  the  inner  tray  was  constructed  of  a  retortable  plastic  foam;  (2)  a 
(xnpartmented  tray  with  a  separate  inner  tray  containing  the  dessert  item, 
wherein  the  inner  tray  was  insulated  with  a  paper  napkin;  and  (3)  a 
oocpartmented  tray  containing  only  low-acid  foods  in  which  no  inner  tray  was 
required.  With  designs  (1)  and  (2) ,  selective  heating  of  the  food  components 
would  be  achieved  by  designing  proper  tray  dimensions  and  using  insulation. 

With  design  (3) ,  selective  heating  of  food  components  would  be  achieved  solely 
by  designing  proper  tray  dimensions. 

Prototype  trays  were  fabricated  and  heat-penetration  measurements  (Fp) 
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were  taken  to  test  only  the  second  and  third  design  concepts.  The  first  design 
concept  was  not  tested  because  of  difficulties  in  obtaining  suitable  retortable 
foam  materials.  However,  GE  Plastics  agreed  to  provide  a  polyphenylene  oxide 
(PPO)  foam  material,  and  American  Oil  Company  (Amoco)  would  provide  an 
experimental  retortable  foam,  as  soon  as  both  products  became  available. 

Aluminum  female  molds  and  plug  assists  were  fabricated  by  G&Q  Associates  to 
test  the  second  and  third  design  concepts.  The  molds  were  used  to  thermoform 
the  coextruded  sheet  material  into  ccnpartraented  trays.  Initial  attempts  at 
therraoforming  resulted  in  trays  that  did  not  have  very  uniform  thickness 
distribution  nor  dimensional  stability,  especially  for  those  made  of  the 
thinner  28  mil  material.  Processing  variables,  such  as  dwell  time,  pressure 
and  temperature  were  refined  and  better  quality  trays  were  formed  with  the  50 
mil  material. 


The  computer  program  required  the  input  of  accurate  data  such  as  thermal 
diffusivity,  thermal  conductivity,  and  specific  heat  capacity  of  the  foods 
which  were  to  be  processed  in  the  ccrnpartmented  trays.  Although  these  values 
were  predicted  by  the  COST  program  in  Phase  I,  actual  experiments  were 
conducted  in  Phase  II  to  obtain  this  data  on  the  foods  provided  by  Natick. 
Experimental  data  on  the  thermal  diffusivities  of  foods  were  obtained  using  a 
test  method  that  was  designed  specifically  for  these  homogeneous  and 
nonhcanogeneous  foods  (Appendix  C) .  The  experimental  and  predicted  thermal 
diffusivity  values  for  foods  at  three  different  temperatures  are  compared  in 
Table  1.  The  values  are  relatively  close  in  comparison.  The  thermal 
conductivity  of  the  insulating  napkin  is  reported  in  Appendix  D,  and  the  bulb 
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densities  are  reported  in  Appendix  E.  A  technical  report  written  an  the  method 
for  measuring  thermal  diffusivities  of  homogeneous  and  nonhcmogeneous  foods  is 
provided  in  Appendix  F. 

Table  1.  Ccnparison  of  Experimental  and  Predicted  Thermal  Diffusivity 


40  °C  ! 

60  “C  | 

80  °C 

Food 

Experimental 

Predicted 

Experimental 

Predicted 

Experimental 

Predicted 

Apple  dessen 

1.33 

1.46 

1.34 

1.54 

1.34 

1.62 

Chicken  stew 

1.51 

1.46 

1.48 

1.54 

1.43 

1.62 

Chocolate  pudding 

1.35 

1.44 

1.31 

1.51 

1.24 

.  1.58 

Pork  withBBQ  sauce 

1.28 

1.41 

1.26 

1.49 

1.22 

136 

Potato  augratin 

1.42 

1.48 

1.38 

1.56 

1.37 

1.65 

Rice  w/butter  sauce 

1.38 

1.44 

1.36 

1.52 

1.37 

1.59 

Sliced  peaehes 

1.47 

1.50 

1.45 

1.59 

1.48 

1.67 

Tuna  noodles 

1.43 

1.43 

1.40 

1.50 

1.39 

1.58 

1.  Tray  Preparation  and  Retort  Experiment: 

Preparing  a  ccnpartmented  tray  for  heat  penetration  measurement  was 
difficult  and  time  consuming,  especially  when  it  contained  an  inner  tray.  A 
thermocoiple  had  to  be  positioned  carefully  at  the  geometric  center  of  each 
compartment  for  monitoring  the  temperature  history.  An  electric  hand  iron  was 
used  to  heat-seal  lids  on  the  ccrpartraented  tray  and  the  inner  tray. 

The  STOCK  rotary  retort  located  in  the  Rutgers  Food  Science  pilot  plant  was 
used  for  thermal  processing  the  trays.  Real-time  heat  penetration  data  was 
integrated  by  an  8-channel  data  acquisition  program  to  obtain  the  lethality 
values  for  the  food  in  each  ocnpartment.  The  retort  cook  and  cool  teaperatures 
were  121°C  and  26.1°C,  respectively. 
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2.  Experimental  Results  and  Discussion: 


Experiments  were  conducted  to  test  the  validity  of  the  cccnputer  program. 
Shown  in  Table  2  are  the  target,  predicted  and  experimental  Fp  values  for  a 
TnB»i  consisting  of  pork  BBQ  sauce,  rice  and  apple  dessert.  The  temperature 
history  curve  of  this  meal  is  also  shown  in  Figure  1.  The  dessert  item  was 
contained  in  an  inner  tray  tAiich  was  insulated  with  a  napkin. 

Table  2 .  comparison  of  Target,  Predicted  and  Experimental  Fp  Values 


Target 

Predicted 

Experimental  (Standatd  Deviation) 

Fpe 

6.1 

7.9 

6.2 

(0.6) 

6.1 

6.1 

8.5  — 

(0.4). 

Fpd 

3.1 

7.6 

4.7 

(1.8) 

Highest  dessert 
cemDcrature  reached 

$ 

1004°C 

95.3°C 

Fp  values 

Target  Desirable  Fp  value 

Predicted:  Fp  value  obtained  from  computer  simulations 

Experimental:  Average  Ep  value  obtained  from  three  experiments 

Menu  Items 

Entree:  Pork  BBQ  sauce,  Fp.  based  on;121.1  °Cand  z=10°C 

Starch:  Rice  with  butter  sauce,  Fpj  based  on  121.1  °C  andz=10  ■'C 

Dessen:  Apple  dessert,  Fpd  based  on  100.0  ?C  and  z=l0  °C 

Tray  Design  and  Dimensions 

Compartment  with  an  inner  tray  insulated  by  a  napkin 
Entree  compartment:  21.1  x  5.3 *  3.0  cm 

Starch  compartment:  7 .8  x  9.8  x  3.0  cm 

Dessert  compartment:  12.5  x  9.8  x  3.0  cm 
Inner  tray:  1 1.6  x  9.0  x  2.2  cm. 


Processing  Conditions 

Thermal  processing  time  =  '40  minutes 

Retort  temperature  =  121. 1°C 

Codling  temperature  =  26. 1  °C 

Initial  temperature  of  pork  BBQ  sauce  *  25.2  °C 

Initial  temperature  of'rice  with  butter  sauce  =  25.6  °.C 

Initial  temperature  of  apple  dessert  *  .  25.3  °C 
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Figure- 1.  Temperature  History  Curve  for  Meal  Consisting  of 
Park  BBQ  Sauce,  Rice  with  Butter  Sauce,  Apple  Dessert 

The  experimental  lethality  value  for  the  entree,  Fpg,  and  for  the  starch, 
F__,  deviated  from  the  predicted  values  by  as  much  as  40%.  It  is  not  too 
surprising  that  this  deviation  in  values  occurred  when  considering  the 
following  factors  that  may  have  influenced  the  results: 

a.  Thermal  processing  of  retortable  plastic  trays  is  a  relatively  little 
understood  process  compared  to  thermal  processing  of  metal  cans; 

b.  The  computer  program  assumes  the  compartment  to  be  rectangular,  but  the 
actual  tray  has  round  comers  and  tapered  edges  making  its  volume  slightly 
smaller; 

c.  Plastic  trays  are  not  as  rigid  as  metal  cans,  and  their  dimensions  will 
more  likely  change  (expand  and  contract)  during  the  different  stages  of  the 
retort  process; 


0  20  40  60 

Time  (mirutes) 
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d.  Since  the  compartments  have  low  profiles  (less  than  4  can).,  a  small 
displacement  of  the  thermocouple  fran  its  proper  position  will  cause  a 
significant  error  in  the  Fn  value; 

e.  Insertion  of  an  inner  tray  with  a  napkin  into  the  ccnpartmented  tray 
makes  accurate  placement  of  the  thenaocouple  more  difficult; 

f .  Due  to  -the  nature  of  the  thermoforming  process,  the  wall  thickness  is 
not  uniform  for  the  entire  -tray  (i.e.,  the  wall  thickness  is  thinner  at  the 
corners  and  inner  edges) ; 

g.  The  computer  program  does  not  take  -into  account  any  ihhcmogeneity  of 
food; 

h.  The  thermal  history  is  strongly  affected  by  the  amount  of  headspace; 

i.  Since  the  retort  was  operated  manually,  there  may  have  been  some 
variation  among  runs  due  to  the  operator  (accurate  cxamtrol  of  the  cooling 
phase  is  particularly  inpcrtant) ; 

j .  Accurate  thermcphysical  properties  of  food  and  the  tray  material  are 
required  for  the  program; 

k.  Accurate  convective  heat  transfer  coefficient  is  also  required. 

Since  the  computer  program  was  thorou^ily  debugged  and  the  heat  transfer 

egoations  used  in  the  program  were  based  on  well-established  principles,  the 
computer  program  should  have  produced  reasonable  predictions  when  accurate 
thermophysical  properties  were  provided.  Therefore,  the  strategy  at  this  point 
was  to  conduct  more  experiments  to  identify  the  major  factors  which  affected 
the  thermal  processing  of  foods  in  this  new  kind  of  retortable  plastic 
capartmented  tray.  The  aim  was  to  control  these  factors  as  much  as  possible, 
and  to  have  a  better  understanding  of  the  magnitude  of  experimental  variation 
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to  be  expected,  so  that  ultimately,  the  trays  could  be  properly  designed. 

An  experiment  was  also  conducted  to  verify  whether  the  geometric  center  was 
indeed  the  coldest  spot  in  the  starch  ocnpaxtment.  To  avoid  any  variation  due 
to  inhcmogeneity  of  food,  a  10%  bentonite  solution  was  placed  in  the  starch 
ccnpartmerrt.  Diree  thermocouples  were  placed  in  the  starch  compartment,  one  at 
the  geometric  center,  and  the  other  two  at  0.6  cm  to  the  ric£it  and  left  of  the 
geometric  center.  Figure  2  shews  the  thermal  history  curve  of  this 
experiment.  Die  Fp  values  obtained  are  10.1  (left),  9.7  (center)  and  10.2 
(right) ,  demonstrating  that  the  geometric  center  was  indeed  the  coldest  spot. 


Figure  2.  Temperature  History 
(10%  Bentonite  in  Starch  Compartment) 
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3  .  Ccrrputer  Simulations: 

The  cccputer  program  was  modified  with  an  optimization  subroutine  to 
include  the  use  of  the  f  and  j  value  method.3'4  A  part  of  the  program  was 
also  rewritten  to  improve  the  computation  speed.  The  average  computation  time 
for  simulating  the  retort  process  of  a  three-component  menu  was  reduced  from  12 
hours  to  about  5  hours.  The  revised  flowchart  and  program  code*;  are  provided 
in  Appendix  G. 

Table  3  lists  the  optimal  tray  dimensions,  obtained  from  ocnputer 
simulations,  for  some  of  the  menu  combinations  suggested  by  Natick.  Two  sets 
of  dimensions  were  provided:  the  first  set  considered  only  the  design 
constraints,  such  as  maximum  allowable  dimensions,  and  the  second  set 
considered  not  only  the  design  constraints  but  assumed  a  small  headspace.  Note 
that  seme  Fp  values  in  the  table  exceeded  the  required  values  of  6  to  8. 

This  may  have  beau  the  result  of  the  objective  function  and  the  constraints 
(such  as  tray  dimensions)  imposed  on  the  ocnputer  program.  Also,  the  food 
items  in  the  menu  had  such  vastly  different  thermal  properties  that  it  was 
difficult  to  simultaneously  thermoprocess  them  in  a  tray  with  reasonable 
dimensions. 


Table  3.  Optimal  Tray  Dimensions  from  Simulation  Program 


Using  f  &  j  Value  Concept 


Original  design  cwmrainu  Considering  bearisiace  &  e&»  of  inner  dessert  tm 


meal  # 

Food 

X,m 

Y.m 

Z,  m 

Fp.  min 

X.  m 

Y.m 

.  2,  «t 

Fp,  min 

i 

Pork  BBQ  sauce 

0.2352 

0.0492 

0.0282 

62 

0,2287 

0.0686 

0.0299 

60 

Rice  bulls/  sauce 

0.08® 

00920 

0.0282 

6,1 

0.0729 

01497 

0.0299 

83 

Apple  dessert 

0.1403 

013926 

0,0282 

01478 

01497 

0.0299 

inner  dessert  Bay 

0.1323 

0.0847 

0.0202 

15 

01358 

01377 

0.0199 

208 

lime  for  beating  phase:  41.9  minutes 

time  /or  testing  phase:  37.7  minutes 

2 

Pw  w /  bacon 

0.20® 

00652 

0.0242 

6.1 

0.24® 

00741 

02)265 

61 

Applesauce 

0.0785 

01197 

0.0242 

6 

0.0865 

01471 

0.026S 

6.1 

Comwkd 

0  1205 

0.1197 

0.0242 

01524 

01471 

02)265 

inner  dessert  my 

0.1139 

0.1131 

0.0176 

3.1 

0.1404 

01351 

02)197 

3.1 

time  for  hearing  phase:  28  6  m  mules 

time  for  hearing  ptase:  24  2  minutes 

(continue) 
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Tfcble  3. 

3 

Chili 

0.2045 

00603 

00264 

Klee 

0X7744 

01154 

00264 

Peach  slices 

0.1221 

0.1154 

00264 

inner  dessert  tray 

0.1142 

0.1075 

00185 

time  for  heating  phase:  38.6  minutes 

4 

Chicken  stew 

012137 

00581 

0.0262 

Pears  sliced 

00777 

01113 

00262 

Chocolate  pudding 

0.1281 

0.1113 

00262 

inner  dessert  tray 

0.1201 

01033 

00183 

time  for  betting  phase:  433  minutes 

5 

Beef  pepper  steak 

02130 

0.0611 

00251 

Potato  aegrtun 

0.0765 

01183 

00251 

Fruit  mu 

0.1285 

01183 

0,0251 

inner  dessert  trey 

0.1205 

01103 

00171 

dree  for  heating  phase:  38.6  minutes 

6 

Spaghetti  /meat  sauce 

02056 

00601 

0.0264 

pears  (Iked 

00747 

01151 

0,0264 

Chocolate  pudding 

0.1229 

0.1151 

00264 

inner  dessert  ny 

01149 

01071 

00184 

time  for  besting  phase:  43.3  minutes 

7 

Chicken  ala  king 

02007 

00623 

00261 

Rice 

00726 

01198 

00261 

Peach  slices 

01200 

01198 

00261 

inner  dessert  tray 

0.1121 

01119 

00181 

time  for  heating  phase:  37.9  minutes 

8 

Beef  stew 

02009 

00609 

00266 

Frail  mix 

00731 

01164 

0.0266 

Chocolate  pudding 

01266 

01164 

00266 

inaer  dessert  Iray 

01187 

01085 

00187 

time  for  beating  phase:  43,7  minutes 

9 

Ham  slices 

02003 

00558 

0.0X2 

Potato**  gratin 

00743 

0.1046 

0.0292 

01180 

01046 

00292 

inner  dessert  tray 

01 101 

0.0967 

00213 

time  foe  heating  phase:  45.1  minutes 

10 

Tuna  6  noodles 

02625 

00373 

0.0333 

Peach  slices 

0.0992 

0.0686 

0.0333 

Green  beans 

01553 

00686 

00333 

inner  (lessen  tray 

01474 

0.0607 

0.0254 

time  for  heating  phase:  38,9  minutes 

11 

Hamburger 

02050 

0.0789 

00202 

Rice 

00985 

01142 

00202 

Carrots 

00985 

01142 

0O202 

time  for  heating  phase:  36.8  minutes 

•  No  high  acid  food  in  the  meal;  no  inner  trty  required. 

12 

Ctaix  bf/guvy 

02226 

0.0731 

00201 

Potato  augmin 

01073 

01054 

0,0201 

Green  peas 

0,1073 

01054 

00201 

time  for  healing  phase  30.7  minutes 

•  No  high  arid  food  in  die  meal:  no  inner  ttiy  reauirtd. 


(ocntiiued) 


10 

0.2297 

0.0689 

0.0297 

9.1 

6.1 

0.0735 

0.1499 

00297 

61 

0.1482 

0.1499 

00297 

21.7 

0.1362 

01379 

00199 

170 

time  for  beating  phase:  34.4  minute* 

115 

0.2286 

0.0686 

00297 

too 

61 

0.0729 

0.1497 

00297 

60 

0.1477 

0.1497 

00297 

2583 

0.1157 

0,1377 

OOI99 

1988 

time  for  heating  phase:  38.6  minutes 

133 

0.2286 

0.0686 

0.0299 

127 

6 

0.0728 

01498 

0.0299 

6 2 

0.1477 

0.1498 

0.0299 

168.6 

01357 

01378 

00200 

1360 

time  for  healing  phase:  370  minutes 

16.9 

0.2286 

00686 

0.0297  . 

150 

6 

00729 

0.1497 

00297 

60 

0,1477 

0.1497 

0.0297 

248.7 

0.1357 

0.1377 

00199 

1918 

time  for  heating  phase:  38.6  minutes 

11.7 

0.2299 

00690 

0.0296 

11.1 

61 

00736 

01499 

0,0296 

6.2 

0.1483 

0.1499 

0.0296 

21 

0.1363 

01379 

00199 

175 

time  for  heating  phase:  34.4  minutes 

16A 

00286 

00686 

00297 

15.0 

61 

0.0729 

01497 

00297 

60 

0.1477 

01497 

0.0297 

247.4 

0.1357 

01377 

00199 

196.9 

time  for  heating  phase;  38.6  minutes 

125 

02310 

00693 

0.0294 

10.7 

6 

00745 

01495 

00294 

60 

0.1484 

01495 

00294 

202 

0.1364 

01375 

00199 

19.7 

1 

time  for  heating  phase:  36.3  minutes 

61 

02298 

00689 

00297 

62 

61 

00735 

01499 

00297 

11.7 

0,1482 

0.1499 

0.0297 

3.7 

0.1362 

01379 

0.0199 

172 

time  for  heating  phase:  34.4  minutes 

13.9 

00326 

00948 

00230 

92 

61 

01123 

01366 

0.0230 

6.0 

229 

0,1123 

01366 

0.0230 

9.7 

lime  for  heating  phase:  23.8  miautes 

123 

00430 

00902 

00231 

11.0 

61 

01175 

01299 

0.0231 

60 

129 

0,1175 

0.1299 

00231 

IM 

lime  for  heating  phase:  25.6  minutes 


**  The  reference  temperature  for  calculating  die  ledullly  values  (Fp's)  of  dessert  in  mule  #1 10  #10  ia  100  degrees  C 
*M  The  reference  tempersture  for  all  other  foods  is  121.1  dcgreaC. 
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To  correct  these  problems,  different  dimensional  constraints  were  imposed 


on  the  computer  program  in  an  attempt  to  locate  better  results  in  the 
simulation  for  a  ccrrpartmented  tray.  Listed  in  Table  4  are  these  new  design 
constraints. 

Table  4.  Design  Constraints  for  Compartmented  Tray  Simulation 


Insulation  thickness; 
height  of  tray: 
length  of  tray: 
width  of  starch  compartment: 
depth  of  dessert  inner  tray: 
heating  time: 
retort  temperature: 
cooling  water  temperature: 
target  lethality  value,  Fp: 

weight/volume  of  compartment* : 


0.0  -  0.6  an 
2.1  -  3.6  an 
16.6  -  31.6  an 
8  -  20  an 
1.5  -  3.0  an 


(0  0.236  in) 

(0.827  -  1.47  in) 
(6.54  -  12.44  in) 
(3.15  -  7.87  in) 
(0.591  -  1.181  in) 


10  -  200  minutes 


121. 1°C 


20°C 

entree  -  6.1  at  ref.  temp  121, 1°C 


starch  -  3.1 


dessert  -  3.1  at  reference  temp  100°C 
entree  -  11  oz  /  375  oc 
starch  -  8  oz  /  261  cc 
dessert  -  8  oz  /  261  cc 


The  volume  shown  has  taken  into  consideration  extra  space  required  to 
compensate  for  the  tapered  comer  of  each  compartment  and  a  free  volume  with 
about  0.6  cm  (0.236  inch)  height  above  each  food  item  to  allow  for  safe  filling 
and  sealing. 


D.  ONE-TRAY  DESICTJ 

In  addition  to  applying  new  constraints  to  the  computer  program,  the 
feasibility  of  using  an  alternative  tray  design  (such  as  different  arrangements 
of  the  ocnpartments)  was  also  investigated.  It  was  determined  that  although 
several  tray  designs  could  be  used  to  process  different  menus,  it  would  be  more 
economical  to  have  a  single  tray  design  in  which  a  variety  of  different  menus 
could  be  simultaneously  thermoprooessed.  Therefore,  computer  simulations  were 
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rvyyhirfriari  to  test  the  feasibility  of  the  universal  "one-tray  design,"  i.e. 
using  an  outer  tray  to  thermal  process  all  lew-acid  foods,  or  using  that  same 
outer  tray  with  another  inner  tray  (with  napkin  insulation)  to  thermqprocess  a 
ccnbination  of  low-  and  high-acid  foods  (Figure  3) .  The  ccnputer  sisulaticns 
shewed  that  such  a  tray  design  is  theoretically  possible  to  use  for  processing 
the  most  recent  menu  combinations  provided  by  Natick;  (Table  5) . 

All  Low-Acid  Foods  (No  Insulation) 


Figure  3.  One  Tray  Concept 
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Table  5.  Suggested  Menus 


LUNCH  AND/OR  DINNER  MENU 
MEAL  #1 

Chicken  Breast  in  Gravy 
Green  Beans 
Apple  Dessert 

MEAL  #2 

Hamburger  Patties 
Corn 

Chocolate  Pudding 
MEAL  .#1 

Chili  con  Came 
"Buttered"  Rice 
Peach  Slices 

MEAL  #4 

Beef  Stew 

Potatoes  in  "Butter" 
Chocolate  Pudding 

MEAL  #5 

Tuna  Noodle  Casserole 
Green  Beans 
Apple  Dessert 

MEAL  #6 

Chicken  ala  King 
"Buttered"  Rice 
Peach  Slices 


BREAKFAST  MENUS 
MEAL  #1 

Bread  Pudding  w/  Sausage 
Hominy  Grits 
Peach  Slices 

MEAL  #2 

Ham  Omelet 
Potatoes  in  "Butter" 

Pear  Slices 


■MEAL  * 7 

Ham  Slices 
Potatoes  in  "Butter" 
Apple  Dessert 

HEAL _8 9 

Spaghetti  w/  Meat  Sauce 
Corn 

Chocolate  Pudding 

MEAL  la 

Pork/BBQ  Sauce 
"Buttered"  Rice 
Apple  Dessert 

MEAL  #10 

Chicken  Stew 
Green  Peas 
Chocolate  Pudding 

MEAL_#1.1 

Beef  Pepper  Steak 
Sliced  Carrots 
Fruit  Mix 

MEAL  ill 

(alt  Diced  Ham  &  Potatoes 
bkft)  corn 

Applesauce 


MEAL_J  3, 

Corned  Beef  Hash 
Hominy  Grits 
Apple  Dessert 

MEAL.  #4 

Western  Omelet 
Potatoes  in  "Butter" 
Fruit  Mix 
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DISCUSSION 


In  Chase  II,  prototype  aluminum  molds  with  plug  assists  were  successfully 
fabricated  and  used  to  produce  ccnpartmented  trays.  Experiments  were  conducted 
to  measure  thermal  properties  of  food  saxtples,  specifically  their  thermal 
diffusivity,  thermal  conductivity  and  specific  heat  capacity.  Heat  penetration 
measurements  were  taken  on  components  of  a  sample  meal  that  was  packaged  and 
processed  in  retortable  ccnpartmented  trays,  and  these  values  were  compared  to 
the  targeted  and  predicted  values.  Although  experimental  heat  penetration 
values  for  the  entree  and  starch  components  differed  significantly  from  the 
predicted  values,  measures  were  taken  to  identify  and  control  the  sources  of 
these  variations.  The  cold  spot  in  the  starch  oonpartment  was  measured  to  be 
at  the  geometric  center.  The  computer  program  was  improved  for  faster 
amputation,  and  the  "f  and  j  value  method"  was  incorporated  for  the 
optimization  subroutines.  Computer  simulations,  conducted  on  four  sanple  menu 
ocmbinations ,  resulted  in  two  types  of  tray  designs;  the  first  design  which  had 
no  dimensional  constraints,  and  the  second  design  which  considered  such 
constraints'  as  tray  dimensions  and  a  small  allowable  headspace.  The  second 
simulation  was  further  modified  to  apply  other  constraints  including  allowable 
dimensions  of  each  compartment,  heating  time,  and  retort  cook  and  cool 
temperatures.  This  simulation  resulted  in  a  more  reasonably  shaped  tray  design 
which  was  then  refined  with  actual  experimentation .  The  result  was  the 
establishment  of  a  universal  "ane-tray  design"  concept,  in  which  a  variety  of 
meals,  consisting  of  three  components,  could  be  simultaneously  thermal 
processed.  If  the  meal  consisted  of  both  lew-  and  high-acid  foods,  the  most 
heat-sensitive  component  would  be  packaged  in  an  inner  tray  that  would  require 
proper  insulation  to  protect  it  from  overprocessing. 
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PHASE  III 


FABRICATION  OF  200  OCMPAKIWENTED  TRAYS 
FOR  SIMULTANEOUS  THERMDPROCESSING  OF  FOODS 

INTRODUCTION 

The  objective  of  Phase  III  was  to  further  test  and  finalize  the  "one-tray 
design"  of  a  cxmpartmented  tray  which  may  be  used  to  simultaneously 
thermoprocess  a  variety  of  menus,  each  containing  three  different  foods,  and  to 
fabricate  200  trays  of  this  type  with  hermetically  sealable  lids.  A  unique 
feature  of  this  universal  design  was  the  use  of  an  inner  tray  and, paper  napkin 
to  protect  the  most  heat-sensitive  food  component  during  processing,  if 
necessary.  Efforts  involved  in  Phase  III  included  conducting  computer 
simulations  on  various  one-tray  designs  to  generate  optimal  dimensions, 
fabricating  trays,  conducting  retort  experiments  using  these  trays,  and 
conducting  microbiological  tests  to  verify  ccammercial  sterility  of  retorted 
products.  In  addition  to  this,  a  study  was  also  conducted  to  determine  the 
effect  of  the  gap  space  between  the  tray  compartments  on  heat  penetration 
during  the  retort  process.  The  result  of  this  study  provided  helpful 
indications  of  how  accurate  seme  of  the  assumptions  made  by  the  ccnputer 
programs  were.  Ultimately,  a  universal  cne-tray  design  was  finalized  and  200 
trays  were  fabricated. 
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TECHNICAL  APPROACH 


A  computer  program  titled  0P3.F  was  written  to  simulate  thermal  processing 
of  foods  in  the  one-tray  design.  This  program  and  related  output  is  provided 
in  Appendix  H.  Ocnputer  simulations  were  conducted  using  this  program  to  test 
the  feasibility  of  the  one-tray  design,  i.e.  using  just  one  outer  tray  to 
thermal  process  all  lw-acid  foods,  or  using  the  same  outer  tray  with  an 
insulated  inner  tray  to  thermal  process  a  combination  of  high-  and  low-acid 
foods.  Resulting  output  from  the  ocnputer  simulations  demonstrated  that  such  a 
design  was  possible  and  could  be  used  to  simultaneously  thermal  process  the 
menu  items  previously  suggested  by  Natick  during  Phase  II.  This  design  used  a 
paper  napkin  to  wrap  around  the  inner  tray  to  protect  the  heat-sensitive  food 
during  retorting.  The  ocnputer  program  output  described  the  predicted 
processing  parameters  for  each  menu  and  is  listed  in  Table  1. 

B.  TRAY  FABRICATION 

The  final  tray  design  was  based  on  the  two  variables  used  in  the  design  of 
previous  prototype  trays:  the  tray  dimensions  and  use  of  the  paper  napkin  as 
an  insulator  (Figure  1) ,  and  the  results  of  tests  conducted  on  the  one-tray 
design  prototypes. 
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Tray  dimensions  (mj: 

Entree  0.1858  0.0558  0.0300 

Starch  •  0.0705  0.1203  0.0300 

Outer  dessert  0.1073  0.1203  0.0300 

Inner  dessert  0.0993  0.1123  0.0240 


Table  1.  Ocraputer  Sinulation  for  One-Tray  Design 


Food  Item 


Fpp  Fpt  Insu.  Heat 
time 

{min)  (min)  (mm)  (min) 


1 

chicken  stew 

229.8 

6.3 

•  6.0 

28.2 

potatoes  asgratin 

170.0 

6.1 

6.0 

apple  dessert 

223.1 

3.1 

3.0 

4.0 

2 

tuna  noodle  casserole 

233.1 

6.4 

6.0 

28.4 

chili  con  came 

170.8 

6.1 

6.0 

peach  slice 

225.2 

3.1- 

3.0 

3.9 

3 

chicken  stew 

232.4 

6.1 

6.0 

28.2 

potatoes  augratin 

170.1 

6.1 

6.0 

chocolate  pudding 

228.2 

8.6 

8.5 

4 

chicken  breast/gravy 

231.9 

6.2 

6.0 

28.6 

green  beans 

189.0 

6.1 

6.0 

apple  dessert 

227.0 

3.1 

3.0 

4.0 

5 

hamburger  patties 

228.8 

6.1 

6.0 

28.2 

corn 

186.9 

6.0 

6.0 

chocolate  pudding 

227.0 

8.7 

8.5 

6 

beef  stew 

231.4 

6.1 

6.0 

28.2 

potatoes  in  butter 

170.1 

6.0 

6.0 

chocolate  pudding 

228.4 

8.5 

8.5 

■O 

c 

IQ 

7 

tuna  noodle  casserole 

232.6 

6.2 

6.0 

28.4 

in 

green  beans 

189.0 

6.1 

6.0 

'5 

.fc 

apple  dessert 

227.0 

3.0 

3.0 

3.9 

O 

o  o 

8 

chicken  ala  king 

233.9 

6.5 

6.0 

29.1 

< o  *t  y> 

OO  A  . 
00*1.  >> 

dd 

*  2. 

buttered  rice 
peach  slices 

193.0 

226.6 

6.1 

3.1 

6.0 

3.0 

4.0 

9 

ham  slices 

227.0 

6.2 

6.0 

31.0 

3  O 

O  V> 

|SP 

potatoes  In  butter 

185.0 

6.3 

6.0 

4.0 

apple  dessert 

241.4 

3.9 

3.0 

—  u  ^ 
w  O 

1  0 

spaghetti/meat  sauce 

227.0 

6.1 

6.0 

27.5 

®  ~  C\J 

corn 

182.4 

6.1 

6.0 

=  s  ~ 

3  ^ 

chocolate  pudding 

222.0 

8.6 

8.5 

u  r 

O  «  <o 

®  S.O 

1  1 

pork/BBQ  sauce 

227.0 

6.2 

6.0 

27.9 

«3Eo 

buttered  rice 

185.9 

6.1 

6.0 

8  ®  2  ° 
n  .  ^ 

apple  dessert 

221.4 

3.0 

3.1 

4.0 

d  Q  Q>  u 

<n  c  o  - 
.  X>  *js  c 

co  <0  rn  in 

12 

chicken  stew 

227.0 

6.1 

6.0 

27.6 

0  O  u  ^ 

;  I  (0  ©  g 

green  peas 

174.0 

7.2 

7.2 

a>  3 

w 

V- 

chocolate  pudding 

224.0 

8.5 

8.5 

®  ® 
■e  5 
t—  o 

13 

beef  pepper  steak 

227.0 

6.0 

6.0 

27.9 

sliced  carrots 

184.7 

6.1 

6.0 

« 

fruit  mix 

215.4 

3.3 

3.0 

4.0 
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Insulation  (Dessert  Item) 

Dimension  (Starch  and  Entree  Items) 


Figure  l.  IWo  Design  Variables  for  One-Tray  Design 

The  dimensions  of  the  final  corpartmented  tray,  with  inner  tray,  are  shown 
in  Figure  2.  TVo  hundred  trays  of  this  design,  including  both  outer 
ocnpartmented  trays  and  inner  trays,  were  fabricated  by  G&Q  Associates  for 
retort  and  microbiological  experiments.  The  outer  trays  were  therraoformed  from 
a  multilayer  coextruded  material  consisting  of  PP  cuter  ard  inner  layers,  and  a 
high-barrier  EVOH  middle  layer.  Ihe  EVOH  provides  the  food  the  with  good 
protection  against  gas  and  vapor  transmission.  Ihe  inner  trays  were 
therraoformed  fran  a  PP  material.  Both  inner  and  outer  trays  were  hermetically 
sealed  with  a  trilaminate  lidding  material  cctrposed  of  polyester  (FV)  outer 
layer,  aluminum  foil  middle  layer,  and  a  PP  heat-sealant  layer.  Insulating 
paper  napkins  were  used  with  the  trays  containing  meals  that  consisted  of  lew- 
and  high-acid  foods.  Ihe  paper  napkin  serves  not  only  as  an  inexpensive, 
environmentally  friendly  insulating  material,  which  protects  the  heat-sensitive 
food  inside  the  inner  tray  during  retorting,  but  also  as  a  napkin  for  the 
soldier  during  meal  time. 
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Seal*  1:2 
Mif.tMl 


Outer  Tray  (Depth  of  compartment  1.18") 


U55") 


■  Diomsion  for  the  ollter  innar  iray  JO" 


Figure  2.  Dimensions  far  One-Tray  Design 


Retort  experiments  were  conducted  on  menu's  1,  2  and  3'  (see  Table  1) ,  to 
cocpare  experimental  heat  penetration  (Fp)  values  generated  by  the  cccfuter 
simulations  conducted  an  this  one-tray  design.  Table  2  summarizes  the  Fp 
values  obtained  from  the  retort  experiment  and  compares  these  values  to  those 
predicted  fcy  the  computer  simulation.  Hie  experimental  Fp  values  correlated 
well  with  predicted  values,  with  the  exception  of  the  dessert  component  in  Menu 
3.  The  observed  differences  in  experimental  and  theoretical  Fp  values  for 
the  dessert  item  is  somewhat  deceptive.  The  reference  temperature  far 
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calculating  the  Fp  values  for  the  dessert  item  was  100°C  instead  of  121°C 
used  for  the  entree  and  starch  items.  As  a  result,  the  difference  in  Fp 
value  was  somewhat  inflated.  The  observed  difference  might  also  be  contributed 
by  the  factors  listed  an  pages  35  and  36  of  this  report.  However,  the  overall 
conation  o*  Fp  values  indicates  that  accurate  prediction  W  be  made 
using  the  computer  program.  The  time/tenperature  profiles  far  Menu  2  obtained 
during  the  retort  experiment  are  depicted  in  Figure  3,  and  the  corresponding 
time/tenperature  data  is  recorded  in  Table  3. 
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Table  2.  Summary  of  One-Tray  Design 


Menu 

1 

II 

1 II 

entree 

chicken  stew 

tuna  noodle 

chicken  stew 

Food  item 

starch 

potato  eug retin 

chili  con  carne 

poteto  augretin 

dessert 

apple  dessert 

peach  slice 

chocolate  pud. 

Computer 

insulation(mm) 

4.0 

3.8 

0 

heet  time(min) 

28.2 

28.4 

28.2 

generation 

Fp  target  (En/St/De)(min) 

6. 0/6. 0/3.0 

6. 0/6. 0/8. 5 

Fp  predicted(min) 

6.3/5. 1/3.1 

6.1/6. 1/8.6 

En 

229.6 

233.1 

§jjS9KE£X|&|jgE| 

VoUcm®)  St 

170.9 

170.8 

De 

223.1 

225.2 

Experiment 

insulation(layer) 

EUIIMOMI 

4 

0 

heat  time(min) 

26  -  30 

28  -  30 

28  -  30 

entree 

7.1+-0.1 

6.2+-0.4 

7.4+-1.0 

Fp  (min)  starch 

8.2+-0.4 

6.6+-0.7 

6.4+-0.4 

dessert 

3.2+-0.2 

4.4.+-0.5- 

13.4+-0.6 

Figure  3.  Temperature  Profiles  for  MENU  #2 
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Table  3.  Time-Taxperature  Record  for 


1 1S. 091 


15.41:  115.47! 


15.79'  115.77! 


16.16:  116.07 


16.52:  116.35 


16.82-  116.81 


117.1!  116.831 


17.35  117.11 

(continue) 


0.980676 


1.131328 


1.295374 


1.473599 


1.884572 


1.868262 


2.084021154  | 


1.070853 


1.210602 


1.36056 


1.521243 


1.692627 


1.874585 


2.065997 


2.269687.1 


51 


Table  3.  (continued) 


- A - 1  8 

c 

D 

E  ■ 

. F  '  "1 

r  G 

r~ 

— ~ 

25 

88.67 

120.8 

117.58! 

117.26 

0.206524 

2.311515 

EH 

2.481021 

EU 

25.5 

89.42 

120.59 

117.79: 

117.45 

EH 

2.701807 

EH 

28 

90.13 

120.57 

117.99. 

117.64 

2.800297 

EH 

2.932485 

EQ 

28.5 

90.83 

120.38 

118.16! 

1 17.79 

0.362323 

3.060295 

ED 

3.17123 

59 

27 

91.53 

120.37 

118.3 

1 1  7.94 

0.433439 

3.328811 

EH 

3.418385 

Km 

27.5 

92.2 

120.2 

118.45 

118.07 

0.516418 

3.606763 

EH 

3.673051 

EH 

28 

92.84 

120.14 

118.55 

118.16 

0.612573 

3.89119 

EH 

3.933049 

EH 

28.5 

93.49 

119.86 

1 1 8.65 

118.31 

0.724252 

4.182241 

EH 

4.202184 

EH 

29 

94.13 

118.5 

118.78 

118.42 

0.853662 

4.482137 

63 

4.478222 

ED 

29.5 

94.73 

117 

118.87 

118.54 

1 .002245 

4.788312 

ED 

4.761995 

85 

30 

95.27 

115.29 

118.86 

118.5 

1.170501 

5.093783 

in 

5.043165 

eh 

30.5 

95.8 

111.94 

118.75 

118.23 

1.360596 

5.391614 

EH 

5.307388 

67 

31 

98.2 

107.14 

118.31 

117.54 

1.569031 

5.660749 

EH 

5.532796 

EH 

31. 51 

96.54 

101.79 

117.62- 

116.46 

l!794439 

5.890348 

EH 

5.708577 

89 

32 

96.82 

98.13 

116.68 

1 15.01 

2.034859 

6.075262 

89 

5.83446 

70 

32.5 

96.96 

90.77 

115.43 

113.21 

2.283155 

6.213928 

m 

5.917631 

ID 

33 

97.07 

86.17 

114.06 

111.21 

— 

1 

j 

m 

5.970108 

EH 

33.5 

82.5 

112.4' 

108.91 

2.790733 

6.384098 

m 

6.000938 

EH 

34 

96.94 

78:71 

110.6 

106.47 

3.037888 

6.429699 

IH 

6.018557 

EH 

34.5 

96.75 

74.97 

108.72' 

103.98 

3.274464 

6.4592771 

m 

6.028487 

EH 

35 

96.48 

71.57 

106.65 

101.31 

3  4967791  6.477641 

m 

6.033857 

EH 

35.5 

96.12 

68.55 

104.55 

98.6 

3.70141 

6.488964 

HI 

6.036734 

EH 

36 

95.69 

65.65 

102.45 

95.87 

3.88675 

6.495946 

in 

6.038269 

78 

36.5 

95.2 

63.26 

100.28 

93.15 

4.052315 

6.500182 

vn 

6.039089 

EH 

37 

94.67 

60.82 

98.12 

90.41 

4.19886 

6.502758 

m 

6.039525 

EH 

37.5 

94.02 

58.46 

95.85 

87.69 

4.325034 

6.504286 

Ell 

6.039759 

ED 

38 

93.33 

55.91 

93.55 

85 

4.432873 

6.505185 

ETI 

6.039884 

EH 

38.5 

92.58 

53.94 

91.32 

82.41 

4.52324 

6  505723 

82 

6.039954 

EH 

39 

91.81 

51.47 

89.08 

79.79 

4.599093 

.  6.506045 

EH 

6.039991 

ED 

39.5 

91.04 

49.87 

86.96 

77:3 

4.662621 

6.506242 

ED 

6.040013 

EH 

40 

90.17!  47.79 

84.79 

74.76 

4.714617 

6.506362 

85 

6.040025 

EH 

40.5 

89.29 

45.86 

82.75 

72.4 

4.757076'  6.506436 

86 

6.040031 

m 

41 

88.37 

.44.42 

80.72 

69.99 

4.79143 

6.506483 

EH 

6.040035 

8  8 

41.5 

87.431  42.93 

78.76 

67.65 

4.819097 

6.506513 

88 

6.040038 

89 

42 

86.52!  41.79 

76.84 

65.43 

4.841535 

6.506532 

89 

6.040039 

EH 

42.5 

85.51 

40.43 

74.99 

63.27 

4.859316 

6.506545 

K'I'l 

6.04004 

eh 

43 

84.58 

39.04 

73.17 

61.3 

4.87367 

6.506553 

EH 

6.040041 

51 

43.5 

83.69 

37.44 

71.381 

59.39 

4.885364 

6.506559 

EH 

6.040041 

EH 

44 

82.83 

35.96 

69.56 

57.52 

4.894958 

6.506562 

Ml 

6.040041 

ED 

44.5 

82.02 

34.54 

67.8 

55.69 

4.902919 

6.506565 

ED 

6.040041) 

EH 

45 

81.21 

33.23 

66.05 

53.93 

4.909525 

6.506566 

95 

6.040041 

EH 

45.5 

4.914995!  6.506567 

EH 

6.040041 

EH 

46 

79.55 

30.78 

62.71 

50.81 

4.9195031  6.506568 

EH 

8.040041 

EH 

46.5 

78.71 

29.6 

61.5 

49.37 

4.92321  8i  6.506569 

98 

6.040041 

EH 

■  47 

77.9 

28  81 

59.92 

48.04 

4.926301 

6.506569 

99 

6.040042 

cm 

47.5 

58.2 

4.928848 

6.506569 

rrr 

8.040042 

mu 

48 

■  76.26 

28.16 
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45.99 

4.930961 

6.506569 

fra 

6.040042 
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D.  MICROBIOIOGICAL  TESTS  AND  RESULTS 


An  inoculation  and  incubation  study  was  conducted  to  verify  that  commercial 
sterility  of  food  in  each  compartment  was  achieved  during  retorting.  A 
three-caxpartment  tray  was  filled  with  corned  beef  hash,  rice  in  butter  sauce 
and  potatoes  au  gratin  for  testing.  Initially,  104  spores  ( Clostridium 
sporocrenes  PA  3679,  D^50=2.4  min)  were  inoculated  in  each  food  oowpartment. 

The  tray  was  heat  sealed  and  retorted  at  121°C  for  33  minutes.  After 
retorting,  the  inoculated  trays  were  incubated  at  35°C. 

After  2  weeks  of  incubation,  the  tray  was  opened  aseptically  and  checked 
for  any  sign  of  spoilage.  Ihe  contents  were  tested  microbiologically  as 
follows: 

1.  A  50  g  ingredient  was  blended  aseptically  with  a  chilled  sterile  450 
ml  peptone  diluent  (0.1%  peptone) . 

2.  Subsequent  dilutions  (10_1,  10“2,  10“3  and  10“4)  were  made. 

These  dilutions  were  plated  on  TSA  plates  in  duplicate,  and  then  incubated  at 
35°C  for  4  days. 

3.  The  dilutions  were  heat-shocked  at  80°b  for  30  minutes  and 
inoculated  into  the  follcwing  media: 

a)  Dextrose  broth  tubes  containing  branothymol  blue  to  detect  any 
aerobic  microorganism. 

b)  Cooked  meat  medium  tubes  to  detect  any  anaerobic  microorganism. 

The  tubes  were  air-exhausted  by  placing  them  in  a  boiling  water  bath  for  20 
minutes  prior  to  inoculation.  The  tubes  were  then  inoculated  from  the  above 
dilutions,  and  overlayed  with  0.5%  sodium-thioglycolate  agar  to  exhibit 
anaerobic  conditions.  The  tubes  were  then  incubated  at  35°C  for  4  days. 
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Results:  From  outside  observation,  no  swelling  or  sign  of  spoilage  was 
noticed  on  the  trays.  At  the  end  of  the  incubation  period,  no  aerobic  or 
anaerobic  growth  was  noticed,  which  indicated  that  efficient  heat  treatment  was 
applied  on  this  product.  It  should  be  noted  that  the  above  study  was  conducted 
only  one  time. 


E.  GAP  EFFECTS  ON  HEAT  PENETRATION  PARftft 


A  study  was  conducted  on  the  effects  that  the  gap  space  between  the  tray 
ccnpartments  had  on  the  effectiveness  of  the  retort  process.  It  was  found  that 
the  gap  spaces  affected  both  the  locations  of  the  slowest  heating  point  in  each 
compartment  and  the  apparent  heat  transfer  coefficients.  In  the  gap  between 
ccnpartments,  convection  was  greatly  reduced  and  the  less  heat  was  transferred 
through  the  gap  sides.  A  technical  report  titled  "Gap  Effects  on  Heat 
Penetration  Parameters  of  MUltiKfcnpartment  Tray"  was  written  on  the  details 
and  results  of  this  study,  and  is  contained  in  Appendix  I.  Overall,  it  was 
determined  that  a  gap  of  at  least  5  to  10  mm  between  ccnpartments  would  allow 
for  effective  heat  seeding  and  assure  only  small  gap  effects.  When  gap  spaces 
are  within  this  range,  the  geometric  center  of  each  cxxipartment  was  still 
assumed  to  be  the  slowest  heating  point,  and  the  apparent  heat  transfer 
coefficient  remained  practically  unchanged. 


CONCLUSIONS 

At  the  completion  of  Phase  in,  Rutgers  University,  Department  of  Food 
Science,  submitted  the  200  ccmpartmented  trays,  200  inner  trays,  lidstock 
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material,  therraoforming  aluminum  molds  with  plug  assists,  insulating  napkin 
material  and  the  cxmputer  simulation  models  to  Natick,  as  required  by  the 
contract.  The  items  were  inspected  by  the  Subsistence  Protection  Branch  of  the 
Food  Engineering  Directorate  and  were  determined  to  be  of  high  quality. 


This  document  reports  research  undertaken  at  the 
U.S.  Army  Natick  Research,  Development  and  Engineering 
Center  and  has  been  assigned  No.  NATICK/ TR-^i/p^y 
in  the  series  of  reports  approved  for  publication. ' 
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APPENDIX  A 

DESCRIPTION  OF  COMPUTER  PROGRAM 

Three  separate  programs  (ANLYT-H3,  ANLYT-F3,  and  MAEN-PL)  are  used 

to  perform  the  following  tasks: 

1.  Calculate  the  overall  heat  transfer  coefficient  from  heating- sterilization 
experiments  (ANLYT-H3). 

2.  Calculate  the  temperature  history  curve  based  on  the  overall  heat  transfer 
estimated  from  the  previous  step  (ANLYT-F3). 

3.  Calculate  the  processing  time  in  a  retort  operating  at  250  °F  of  a  compartmented 
tray  containing  low  and  high  acid  foods.  Also  calculated  is  the  amount  of  insulation 
needed  to  protect  the  high  acid  food  against  overprocessing  (MAEN-PL). 

These  three  programs  are  currendy  being  consolidated  into  a  single  program. 

A.  Description  for  ANLYT-H3 


Title  1-20 

Main  program  30-410 

Input  parameters  30-190 

Calculate  overall  heat  transfer  coefficient  200-410 

Subroutines 

Define  Biot  Numbers  (Bi)  for  3  infinite  slabs  800-870 

Estimate  first  20  positive  roots  of  a  tan  a  =6i  1000-1370 

Calculate  unaccomplished  temperature  change  for  each  dimension  2000-2100 

Calculate  central  temperature  during  heating  and  cooling  3000-4000 

Calculate  sums  of  square  differences  4000-4200 


The  experimental  heating  curves  are  imported  into  the  program  through  line  120. 
B.  Description  for  ANLYU2 


Title  1-20 

Main  program  10-300 

Parameter  input  40-110 

Subroutines 

Define  Biot  Numbers  (Bi)  for  3  infinite  slabs  800-870 
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Estimate  first  20  positive  roots  of  a  tan  a  =Bi  1000-1370 

Calculate  unaccomplished  temperature  change  for  each  dimension  2000-2100 

Calculate  central  temperature  during  heating  and  cooling  and 
store  output  file  3000-4000 

C.  Description  for  MAIN-PI 

Title  1-20 

Main  program  30-340 

Parameter  input  30-130 

Calculate  process  time  for  tray  150-260 

Calculate  insulation  thickness  (if  needed)  275-340 

Subroutines 

Rename  variables  400-450 

Calculate  process  time  500-599 

Calculate  insulation  thickness  600-740 

Define  Biot  Numbers  (Bi)  for  3  infinite  slabs  800-870 

Estimate  first  20  positive  roots  of  a  tan  a  -Bi  1000-1370 

Calculate  unaccomplished  temperature  change  for  each  dimension  2000-2100 

Calculate  central  temperature  during  heating  and  cooling  3000-4000 

Calculate  lethalities  during  heating  and  cooling  4000-4200 


The  program  is  linked  through  program  line  77  to  the  software  developed  by  the 
European  Cooperation  in  Scientific  and  Technical  Research  for  estimating  the 
thermophysical  properties  of  food  . 
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definition  of  program  variables 


ALPHA  (CO) 

RI(SD) 

CCR1T 

CO 

FNDF(X) 

FNF(X) 

FP 

FP1.FP2 

HT.HTA 

INSULTH 

K(CO) 

KINS 

L(I) 

LETH(f) 

LL(CO,l) 

MEALS(CO) 

RT(COUNT) 

SD 

STP 

TCOOL 

TFP(CO) 

THEAT 

U(M) 

W 


WPRQD 


1st  ELEMENT  (CO) 

2nd  ELEMENT  DIRECTION  (I) 

:  (ID  ARRAY)  THERMAL  DIFFUSIVITY  OF  FOOD  IN  CONTAINER  CO  (W/m2 

°K) 

:  (ID  ARRAY)  RIOT  NUMBER  FOR  DIRECTION  (SD) 

:  CONVERGENCE  CRITERION  (THE  NEWTON-RAPHSON  METHOD  FOR  THE 
CALULATION  OF  THE  FIRST  20  POSITIVE  ROOTS  OF  FNF(X)). 

:  CONTAINER  SERIAL  NUMBER 
:  DERIVATIVE  OF  FUNCTION  FNF(X) 

:  FUNCTION  Xtan(X)-Bi 
:  STERILIZING  VALUE  (min) 

:  STERILIZING  VALUES  USED  IN  THE  NEWTON-RAPHSON  METHOD  (min) 

:  OVERALL  HEAT  TRANSFER  COEFFICIENT  (W/m2  °K) 

:  REQUIRED  INSULATION  THICKNESS  (m) 

:  (ID  ARRAY)  THERMAL  CONDUCTIVITY  OF  FOOD  IN  CONTAINER  CO 
(W/m  °K) 

:  INSULATION  THERMAL  CONDUCTIVITY 
:  (ID  ARRAY)  SIZE  OF  CONTAINER  (m)  IN  THE  DIRECTION  (J). 

:(1D  ARRAY)  LETHALITY  AT  TIME  J 
:  (2D  ARRAY)  SIZE  OF  CONTAINER  (m) 

:  (ID  ARRAY)  NAME  OF  MEAL  IN  CONTAINER 
:  (ID  ARRAY)  THE  FIRST  2Q  ROOTS  OF  THE  EQUATION  FNF(X) 

:  DIRECTION  (INFINITE  SLAB)  SERIAL  NUMBER 

:  STEP  FOR  INITIAL  GUESSES  (THE  NEWTON-RAPHSON  METHOD  FOR  THE 
CALULATION  OF  THE  FIRST  20  POSITIVE  ROOTS  OF  FNF(X)) 

:  COOLING  TIME  (min) 

:(1D  ARRAY)  TARGET  STERILIZING  VALUE  (tn)  FOR  CONTAINER  CO 
:  HEATING  TIME  (min) 

:(1D  ARRAY)  TEMPERATURE  AT  THE  REFERENCE  POINT  AT  TIME  M  (°C) 

: UNACCOMPLISHED  TEMPERATURE  DIFFERENCE  CALCULATED  ON  THE 
BASIS  OF  A  SINGLE  ROOTOF  EQUATION  FNF(X).  (W=  (T-Tr)/(Ti-Tr)  where 
Tr.Ti  THE  RETORT  AND  INITIAL  TEMPERATURE  RESPECTIVELY). 

:  UNACCOMPLISHED  TEMPERATURE  DIFFERENCE  BASED  ON  2 
DIRECTIONS.  PRODUCT  OF  THE  WSUM(I). 
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WSUM  a)  :  (ID  ARRAY)  UNACCOMPLISHED  TEMPERATURE  DIFFERENCE 

CALCULATED  ON  THE  BASIS  OF  THE  20  ROOTS  OF  EQUATION  FNF(X)  FOR 
THE  DIRECTION  (I). 

WSUM  UNACCOMPLISHED  TEMPERATURE  DIFFERENCE  CALCULATED  ON  THE 

BASIS  OF  THE  20ROOTS  OF  EQUATION  FNF(X).  (SUM  OF  W). 

X(J)  :  (ID  ARRAY)  DISTANCE  OF  THE  REFERENCE  POINT  FROM  CENTER  (m) 

(DIRECTION  J) 

XL  :  DISTANCE  OF  THE  REFERENCE  POINT  FROM  CENTER  (m)  (DIRECTION  OF 

LENGTH) 

XT  :  DISTANCE  OF  THE  REFERENCE  POINT  FROM  CENTER  (m)  (DIRECTION  OF 

HEIGHT) 

X  W  :  DISTANCE  OF  THE  REFERENCE  POINT  FROM  CENTER  (m)  (DIRECTION  OF 

WIDTH) 

Z(C0)  :  (ID  ARRAY)  Z  VALUE  FOR  THE  TARGET  MICRORGANISM  IN  CONTAINER 

CO 
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2.0  i*******************  ANLYT-H3*  *************************** 

20  ' ** ‘ESTIMATION  OF  THE  OVERALL  HEAT  TRANSFER  COEFFICIENT*********** 
30  DIM  U (4 000) ,R(3, 20)  ,RT(20) ,XRON(4000) , UEXPR ( 4000) 

40  PRINT  :  INPUT  "H" ;HT:HT=190 

50  PRINT  :  INPUT  "LENGTH  (m) " ;L( 1) : L(l) «. 06 

BO  PRINT  :  INPUT  "WIDTH  (ID)  "  JL(2)  :L(2)  =  .  035 

70  PRINT  :  INPUT  "THICKNESS  (»)*;L(3) :L(3)«.015 

80  PRINT  i  INPUT  "THERMAL  CONDUCTIVITY  K" ;K:K-,637 

85  PRINT!  INPUT  "THERMAL  DIFFUSrVlTY-"  ,'ALPHA:  ALPHA-1 . 587E-07 

90  PRINT  "DISTANCE  FROM  CENTER  XL,XW,  XT"  :X(  1) -0:X(  2) -0  :X(3)  =0 

100  PRINT  ! INPUT  "HEATING  TIME" JTHEAT: TREAT- 60 

no  printjInput  "Cooling  time";tcool:tcooi>2o 

120  EXPER1$«"DATA2.PRN" 

130  DH-.5 

140  OPEN  EXPER1$  FOR  INPUT  AS  #2 

150  INPUT  #2,N 

160  FOR  I-l  TO  N 

170  INPUT  #2 , XRON (I) , UEXPR ( I) 

180  NEXT  I 
190  CLOSE  12 
200  GOSUB  800 
210  GOSUB  3000 
220  GOSUB  4000 
230  SS1=SS 
240  HT=HT+DH 
250  GOSUB  800 
260  GOSUB  3000 
270  GOSUB  4000 
280  SS2=SS 

290  IF  ABS (SS1-SS2 ) < . 5  GOTO  400 

300  HT=(HT-DH) -( (SS2-SS1 )* 1 ) /DH : LPRINT  SSI ,  SS2  ,HT., TIMES 
310  GOTO  200 

J20  LPRINT  "convergence  achieved,  h“",HT-DF 
410  END 

800  '****BIOT  #  FOR  THE  3  INFINITE  SIAB'S** ********** 

805  FOR  SD=1  TO  3 
810  BI(SD)=HT*L(SD)/K 
820  GOSUB  1000 
830  FOR  J=1  TO  20 
840  R(SD, J)=RT(J) 

850  NEXT  J 
860  NEXT  SD 
870  RETURN 

1000  * **** ‘ESTIMATION  OF  THE  FIRST  6  POSITIVE  ROOTS  OF  THE  EQUATION 
1010  *******  ATANA=C****** **************************** ************ 

1020  CLS 
1025  BI=BI(SD) 

1030  FOR  J=0  TO  COUNT 
1032  RT(J)=0 
1034  NEXT  J 

1040  DEF  FNF(X)=X*TAN(X) -BI 
1050  DEF  FNDF (X) =TAN (X) +X/ (COS (X) ) *2 
1060  COUNT-O 
1075  STP=.05 

1080  'initial  guesses  for  the  roots 

1090  FOR  J=0  TO  61  STEP  STP:  X1=J:L0CATE  15,25:PRINT  J 
1100  'convergence  dcriterion 
1110  CCRIT=. 001 

1120  'Newton-Raphson  method  for  the  estimationn  of  the  roots 
1130  FOR  1=1  TO  200 

1140  IF  ABS  (FNF (XI )) <CCRIT  GOTO. 1210 
1145  IF  X1=0  THEN  GOTO  1310 
1150  F1=FNF (XI ) 

1160  DF1=FNDF(X1) 

1170  X1*X1-F1/DF1 
1180  NEXT  I 
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1190  'disregard  values  that  did  not  converge 
1200  IF  1*200  GOTO  1310 
1210  FOR  1-0  TO  COUNT 

1220  'disregard  roots  already  existing 

1221  'if  bi-0  keep  the  root-0 

1222  IF  Xl-0  GOTO  1280 

1223  'PREVENT  ROOTSd  FROM  BEEING  DISPOSED 
1225  IF  RT(I)-0  AND  BI<>0  THEN  GOTO  1240 
1230  IF  INT(Xl) — INT(RT(I) )  THEN  GOTO  1310 
1240  NEXT  I 

1250  '  disregard  roots  other  than  the  first  five 

1260  IF  Xl>61  THEN  GOTO  1310 

1270  'fora  an  array  with  the  roots  r (count) 

1280  COUNT-COUNT+1: PRINT  COUNT 

1290  RT (COUNT) -XI 

1300  IF  COUNT>19  GOTO  1330 

1310  NEXT  J 

1330  FOR  J-1  TO  COUNT 

1360  NEXT  J 

1370  RETURN 

2000  ********  CALCULATION  OF  THE  UNACCOMPLISHED  TEMPERATURE  CHANGE  ******** 
2010  ********  FOR  EACH  DIMENSION  ******** 

2020  ' 

2030  ' 

2040  WSUM'O 
2045  DEFDBL  W 
2050  FOR  J«1  TO  20 

2060  W«2*SIN(R(I, J) ) *COS(R(I, J) *X(I)/L(I) )*EXP(-R(I,J) *2*(ALPHA*T/(L(I) ) *2)). 
I , J) +SIN(R( I ,  J) ) *COS(R(I,J)) ) 

2080  WSUM-WSUM+W 
2085  NEXT  J 

2090  WSUM ( I ) -WSUM : PRINT  WSUM(I) 

00  RETURN 

3000  *******  CALCULATION  OF  CENTRAL  TEMPERATURES  DURING  HEATING  AND  COOLING*** 
3370  FOR  M-0  TO  ( THEAT+TCOOL)  STEP  1 

3372  IF  M>THEAT  GOTO  3373  ELSE  GOTO  3375 

3373  T-(M-THEAT) *60: GOTO  3380 
3375  T— M*60 

3380  FOR  1-1  TO  3 
3390  GOSUB  2000 
3400  NEXT  I 

3410  WPROD— WSUM(l) *WSUM(2) *WSUM (3) SPRINT  WPROD 
3415  TW-121  tTI-21 

3417  IF  M>THEAT  THEN  TW-21:TI-U (THEAT) 

3420  U (M) -WPROD* (TI-TW) +TW: PRINT  U(M) 

3440  NEXT  M 

3450  EXPER$-" ANL. PRN" 

3460  'OPEN  EXPER$  FOR  OUTPUT  AS  #1 
3470  FOR  J-l  TO  (THEAT+TCOOL) 

3480  'PRINT  $1,J,U(J) 

3485  PRINT  J,U(J) 

3490  NEXT  J 
3500  'CLOSE  #1 
3800  PRINT  TIMES 
3900  RETURN 

4000  ' ***********CALCULATION  OF  SUMS  OF  SQUARES***************************** 


4010 

4020 

4030 

4040 

1050 

1060 

4070 

4080 


SS-0:SQ-0 

FOR  J-l  TO  THEAT 

FOR  1-1  TO  N 

IF  ABS ( J-XRON (I) )  <»  5  GOTO  4  070 
NEXT  I 

'PRINT  J,U(J) ,Xron(I) ,UEXPR(I) 
SQ«(U(J) -UEXPR(I)  ) z 


4090  SS-SS+SQ 
4100  NEXT  J 


R 


HdiCC  RETUft-hi 
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10  I  *******************  ANLYT-F3  **************************** 

20  •*** ANALYTICAL  SOLN  OF  HEAT  CONDUCTION******************** 

30  DIM  U(4000) , R ( 3 , 2 0 )  , RT (20) 

40  PRINT  :  INPUT  "H";HT:HT=173 

p6  PRINT  :  INPUT  "LENGTH  (m)  "  ;L(1)  :L(1)*,06 

60  PRINT  :  INPUT  "WIDTH  (m) " ;L(2) :L(2)=.035 

70  PRINT  :  INPUT  "THICKNESS  (m) " ;L(3 ) }L ( 3) ». Q15 

80  PRINT  :  INPUT  "THERMAL  CONDUCTIVITY  K",'K;K«,637 

85  PRINT!  INPUT  "THERMAL  DIFFUSlVlTY*" ; ALPHA : ALPHA* 1 . 58?E-p7 

90  PRINT  "DISTANCE  FROM  CENTER  XL,XW,XT'*:k(l)«0;X(2)=9:X<3)»0 

100  PRINT  : INPUT  "HEATING  TIME" ?THEAT:THEAT«60 

110  PRINT: INPUT  "COOLING  TIME" ;TCOOL:TCOOLw2Q 

200  GOSUB  800 : GOSUB  3000 

300  END 

445  'SAVE  THE  OUTPUT  IN  A  DOS  FILE 

800  ' ****BIOT  #  FOR  THE  3  INFINITE  SLABS************ 

805  FOR  SD=1  TO  3 
810  BI(SD)»HT*L(SD)/K 
820  GOSUB  1000 
830  FOR  J=1  TO  20 
840  R(SD,J)»RT(J) 

850  NEXT  J 
860  NEXT  SD 
870  RETURN 

1000  '*****ESTIMATION  OF  THE  FIRST  6  POSITIVE  ROOTS  OF  THE  EQUATION 
1010  *******  ATANA=C* ***************************************  *  ***** 
1020  CLS 
1025  BI-BI(SD) 

1030  FOR  J=0  TO  COUNT 
1032  RT(J)-0 
1034  NEXT  J 

1040  DEF  FNF(X)=X*TAN(X)-BI 
1050  DEF  FNDF (X) “TAN (X) +X/ (COS (X) ) *2 
1060  COUNT=0 
1075  STP-.05 

1080  'initial  guesses  for  the  roots 

1090  FOR  J»0  TO  61  STEP  STP:  X1=J:L0CATE  15,25:PRINT  J 
1100  'convergence  dcriterion 
1110  CCRIT=.00l 

1120  'Newton-Raphson  method  for  the  estimation]#  of  the  roots 
1130  FOR  1=1  TO  200 

1140  IF  ABS  (FNF(Xl) )<CCRIT  GOTO  1210 
1145  IF  X1=0  THEN  GOTO  1310 
1150  F1=FNF(X1) 

1160  DF1=FNDF(X1) 

1170  X1-X1-F1/DF1 
1180  NEXT  I 

1190  'disregard  values  that  did  not  converge 
1200  IF  1=200  GOTO  1310 
1210  FOR  1*0  TO  COUNT 

1220  'disregard  roots  already  existing 

1221  'if  bi=0  keep  the  root=0 

1222  IF  X1*0  GOTO  1280 

1223  'PREVENT  ROOTsCl  FROM  BEEING  DISPOSED 
1225  IF  RT (I ) =0  AND  BI<>0  THEN  GOTO  1240 
1230  IF  INT (XI) =INT (RT (I) )  THEN  GOTO  1310 
1240  NEXT  I 

X250  '  disregard  roots  other  than  the  first  five 

1260  IF  Xl>61  THEN  GOTO  13l0 

1270  'form  an  array  with  the  roots  r( count) 

1280  COUNT*COUNT+l '.PRINT  COUNT 

3290  RT (COUNT) *X1 

1300  IF  COUNT>19  GOTO  1330 

1310  NEXT  J 

1330  FOR  J*1  TO  COUNT 

1360  NEXT  J 
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J  370  RETURN 


2000  ********  CALCULATION  OF  THE  UNACCOMPLISHED  TEMPERATURE  CHANGE 
2010  ********  FOR  EACH  DIMENSION 

‘2020  '  t 

3030  * 


2040  WSUM*0 
2045  DEFDBL  W 
2050  FOR  J«1  TO  20 

2060  W-2*SIN(R(I,J))*COS(R(I/J)*X(I)/L(I) )*EXP(-R(I,J)‘2*(ALPHA*T/(L(I)) *2))/R< 
I, J)+SIN(R(I, J) ) *COS(R(I,J) ) ) 

2080  WSUM-WSUM+W 
2085  NEXT  J 

2090  WSUM(I)-WSUM : PRINT  WSUM(I) 

2100  RETURN 

3000  '******CALCULATION  OF  CENTRAL  TEMPERATURES  DURING  HEATING  AND  COOLING*** 
3370  FOR  M-0  TO  (THEAT+TCOOL)  STEP  1 

3372  IF  M>THEAT  GOTO  3373  ELSE  GOTO  3375 

3373  T» (M-THEAT) *60 : GOTO  3380 
3375  T«M*60 

3380  FOR  I«1  TO  3 
3390  GOSUB  2000 
3400  NEXT  I 

3410  WPROD»WSUM ( 1 ) * WSUM ( 2 ) *WSUM ( 3 ) : PRINT  WPROD 
3415  TW-121  JTI-21 

3417  IF  M>THEAT  THEN  TW«21:TI»U(THEAT) 

3420  U(M) -WPROD* (TI-TW) +TW: PRINT  U(M) 

3440  NEXT  M 

3450  EXPER$“"ANL. PRN" 

3460  OPEN  EXPER$  FOR  OUTPUT  AS  #1 
3470  FOR  J«1  TO  (THEAT+TCOOL) 

3480  PRINT  #lfJ,U(J) 

3485  PRINT  J,U(J) 

3490  NEXT  J 

3500  CLOSE  #1  ' 

3800  PRINT  TIMES 
3900  RETURN 
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10  ********************  MA IN — PL . BAS  *t ********************  ******* 

20  '***PROCESS  TIME  AND  INSULATION  THICKNESS  CALCULATION  (CHAIN  TO  COST)******* 

30  DIM  U(4000) ,RO(3,20)  ,RT(20)  ,LETH(4000)  ,LL{3,3) ,XX{3,3)  . 

40  PRINT  :  INPUT  "H" ;HT: HT-168 

42  HTA-HT  i 

44  PRINT  : INPUT  "FIRST  ESIMATE  OF  HEATING  TIME" ; THEAT : THEAT-60  | 

46  PRINT: INPUT  "COOLING  TIME" ;TC00L:TC00L»20 

47  PRINT  : INPUT  "INULATION  THERMAL  CONDUCTIVITY  W/m  K"  ; KINS  SKINS-. 2  :CQ«1 

48  IF  CO>3  GOTO  140  ! 

49  PRINT  "CONTAINER"  CO:  INPUT  “MEAL  NAME" ;MEAL$ (CO)  j 

50  PRINT  :  INPUT  "LENGTH  (m) " ;LL(CO, 1) :LL(CO, 

60  PRINT  s  INPUT  "WIDTH  (m) " ?LL( CO, 2 ) : LL(CO, 2) « . 035  i 

70  PRINT  :  INPUT  "THICKNESS  (m) " ;LL(CO,  3)  :LL(CO, 3)  -.015 
75  IF  C0>1  THEN  CHAIN  "COST. BAS" , 120, ALL 
77  CHAIN  "COST »  BASM  ALL 

80  PRINT  :  INPUT  "THERMAL  CONDUCTIVITY  K"  ;K(CQ)  :K(CO) ».  637  j 

85  PRINT:  INPUT  "THERMAL  DIFFUSIVITY-" ?ALPHA(CO) :ALPHA(CO)-l . 587E-07 
90  PRINT  "DISTANCE  FROM  CENTER  XL,  XW, XT" : XX (CO, 1) “0 :XX (CO , 2 ) *0 : XX (CO ., 3 ) =0 
120  PRINT  :  INPUT  "Z  VALUE" ;Z (CO) : Z (CO) -10 

125  PRINT  :  INPUT "THE  TARGET  STERILIZING  VALUE  (min) " ?TFP ( CO)  I 

130  CO-CO+l:GOTO  48 

140  PRINT  "*****************END  OF  INPUT*********'***********************" 

150  FOR  CO-1  TO  3 
160  GOSUB  400 
165  THEAT-20+4 *TFP 

170  IF  C0>1  GOTO  190  ! 

180  GOSUB  500: GOTO  200 

190  GOSUB  532 

200  THEAT (CO) -THEAT 

210  THEAT (CO) -THEAT  : LPRINT  THEAT (CO) 

220  NEXT  CO 

225  'the  process  time  is  the  longest  of  the  3  pr. times  ; 

0  IF  THEAT ( 1 ) > THEAT ( 2 )  THEN  THEAT- THE AT (1)  ELSE  THEAT-THEAT ( 2 ) 

240  IF  THEAT > THEAT ( 3 )  GOTO  260  ELSE  THEAT-THEAT (3) 

260  LPRINT;  LPRINT  THEAT  < 

270  ' 

275  'calculate  the  sterilizing  value  without  insulation 
280  FOR  CO-1  TO  3 

290  IF  THEAT  (CO) -THEAT  THEN  LPRINT  "PROCESS  TIME  IS  BASED  ON  CONTAINER"CO"CCtiTAI)J 
N I NG '' MEAL$  ( CO )  ,  "heating, cooling  t imes" THEAT, TCOOL  ;GOTO  330 
297  GOSUB  400: GOSUB  3000: GOSUB  4000  j 

300  LPRINT  "fp  without  insulation"FP 

310  IF  FP>TFP(CO)  AND  FP<1. l*TFP(CO)  THEN  LPRINT  "NO  INSULATION  IS  NEEDED  FCR  CON 
NTAINER"CO"CONTAINING"  MEAL$ (CO) :GOTO  330 
320  GOSUB  600 

325  LPRINT  "INSULATION  THICKNESS  NEEDED  FOR  CONTAINER"CO"CONTAINING"M£aL$ (CO  ,  IN 
SULTH" (m) "  T 

330  NEXT  CO  j 

340  END  * 

400  '********** *****RENAME  VARIABLES*********************************** 

405  FOR  J=1  TO  3  j 

410  L(J)-LL(CO, J)  ! 

420  X ( J) -XX (CO, J)  I 

430  NEXT  J  i 

440  K— K(CO) : ALPHA-ALPHA(CO) : Z— Z (CO) :TFP— TFP(CO) 

450  RETURN  i 

500  ' ********PROCESS  TIME  CALCULATION********  i 

530  GOSUB  800 

532  GOSUB  3000:GOSUB  4000 

540  FP1—0 : FP2— 0 

5,4  5  FP1-FP 

547  IF  ABS (TFP-FP1) < . 1  GOTO  598 
550  THEAT-THEAT+ . 1 
560  GOSUB  3000:  GOSUB  4000 
570  FP2-FP 

590  THEAT- ( THEAT- .!)-(( FP1 -TFP) / ( ( FP2 -FP1 )/.!)): LPRINT  THEAT , TIME$ 
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595  GOTO  532 

598  LPRINT  H  THE  HEATING  AND  COOLING  TIMES  FOR" , CO" ARE "THE AT, T COOL 

599  RETURN 

600  ****************** INSULATION  THICKNESS  CALCULATION******************* 
610  TFP-TFP(CO) 

620  HT-35 

630  GOSUB  800 : GOSUB  3000:GOSUB  4000 
640  FPl-0:FP2-0 
650  FPl-FP 

660  IF  ABS (TFP-FP1) <. 1  GOTO  720 
670  HT-HT+5 

680  GOSUB  800JGOSUB  300O:GOSUB  4000 
690  FP2-FP 

700  HT-(HT-5) *■( (FPl-TFP)/( (FP2-FP1) /5) ) : LPRINT  HT, TlME$ 

710  GOTO  630 

720  INSULTH- ( ( 1/HT) - ( 1/HTA) ) *KINS 
730  HT-HTA 
740  RETURN 

800  ' ****BIOT  #  FOR  THE  3  INFINITE  SLABS************ 

805  FOR  SD-1  TO  3 
810  BI(SD)-HT*L(SD)/K 
820  GOSUB  1000 
830  FOR  J-l  TO  20 
840  RO(SD,J)*=RT(J) 

850  NEXT  J 
860  NEXT  SD 
870  RETURN 

1000  1 *****ESTlMATION  OF  THE  FIRST  6  POSITIVE  ROOTS  OF  THE  EQUATION 
1010  ' ******  ATANA-C********************************************** 

1020  CLS 
1025  BI-BI(SD) 

] 030  FOR  J-0  TO  COUNT 
1Q32  RT(J)«0 
1034  NEXT  J 

1040  DEF  FNF (X) — X*TAN (X) -BI 
1050  DEF  FNDF (X) =TAN (X) +X/ (COS (X) ) * 2 
1060  COUNT* 0 
1075  STP- .05 

1080  ‘initial  guesses  for  the  roots 

1090  FOR  J*0  TO  61  STEP  STP:  Xl=J:LOCATE  15,25:PRINT  J 
1100  'convergence  dcriterion 
1110  CCRIT-.001 

1120  ' Newton -Raph son  method  for  the  estimationra  of  the  roots 
1130  FOR  1-1  TO  200 

1140  IF  ABS  (FNF(Xl) )<CCRIT  GOTO  1210 
1145  IF  X1=0  THEN  GOTO  1310 
1150  Fl-FNF(Xl) 

1160  DF1*FNDF (XI) 

1170  X1-X1-F1/DF1 
1180  NEXT  I 

1190  'disregard  values  that  did  not  converge 
1200  IF  1-200  GOTO  1310 
1210  FOR  1-0  TO  COUNT 

1220  'disregard  roots  already  existing 

1221  'if  bi-0  keep  the  root-0 

1222  IF  Xl-0  GOTO  1280 

1223  'PREVENT  ROOTSC1  FROM  BEEING  DISPOSED 
122  5  IF  RT(I)«0  AND  BIO0  THEN  GOTO  1240 
1230  IF  INT(X1)-INT(RT (I) )  THEN  GOTO  1310 
1240  NEXT  I 

1250  '  disregard  roots  other  than  the  first  five 

1260  IF  Xl>61  THEN  GOTO  1310 

1270  'form  an  array  with  the  roots  r (count) 

1280  COUNT-COUNT* l: PRINT  COUNT 

1290  RT (COUNT) -XI 

1300  IF  COUNT>19  GOTO  1330 
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1310  NEXT  J 

1330  FOR  J-l  TO  COUNT 

1360  NEXT  J 

1370  RETURN 

1000  ********  calculation  of  the  unaccomplished  moisture  change  ********* 

2010  ********  for  each  dimension  ********* 

2020  ' 

2030  ' 

2040  WSUM-0 
2045  DEFDBL  W 
2050  FOR  J-l  TO  20 

2060  W-2*SIN(RO(I,J) )*COS(RO(I, J) *X(I)/L(I) ) *EXP(-RO (I , J) “2* (ALPHA*T/ (L ( I) ) “2)  )/ 
(RO  (I , J) +SIN  (RO  (I  t  J)  )  *COS  (RO  (I ,  J)  )  ) 

2080  WSUM-WSUM+W 
2085  NEXT  J 

2090  WSUM ( I ) —WSUM : PRINT  WSUM(I) 

2100  RETURN 

3000  *  ******CALCULATION  OF  CENTRAL  TEMPERATUREES  DURING  HEATING  AND  COOLING*** 
3360  COUNT2-0 

3370  FOR  M-0  TO  (THEAT+TCOOL)  STEP  1 

3372  IF  M>THEAT  GOTO  3373  ELSE  GOTO  3375 

3373  T-(M-THEAT) *60 :GOTO  3380 
3375  T«M*60 

3380  FOR  1-1  TO  3 
3390  GOSUB  2000 
3400  NEXT  I 

3 4 1 0  WPROD-WSUM ( 1 ) *  WSUM { 2 ) *  WSUM (3 ) : PRINT  WPROD 
3415  TW—121  :TI=21 

3417  IF  M>THEAT  THEN  TW=2 1 : TI=U (THEAT) 

3420  U (M) —WPROD* (TI-TW) +TW: PRINT  U (M) 

34  3  0  COUNT 2  =COUNT 2  +  1 
3440  NEXT  M 

3H50  *EXPERS-**ANL.PRN" 

3460  'OPEN  EXPER$  FOR  OUTPUT  AS  #1 
3470  'FOR  J=1  TO  (THEAT+TCOOL) 

3480  'PRINT  #1,J,U(J) 

3485  'PRINT  J,U(J) 

3490  'NEXT  J 
3500  'CLOSE  #1 
3800  PRINT  TIME$ 

3900  RETURN 
4000  * 

4  010  ' 

4020  SUM-0 :FP=0 

4030  FOR  J=0  TO  COUNT 2 

4040  LETH(J)=1Q‘ ((U(J)-12l.lll)/Z) 

4050  NEXT  J 

4060  IF  INT (COUNT2/2 ) —COUNT2/2  THEN  COUNT2=COUNT2-l 
4070  FOR  J-0  TO  COUNT2-2  STEP  2 

4080  SUM—SUM+1* (LETH(J) +4*LETH(J+1) +LETH (J+2) )/3 

4090  NEXT  J 

4100  FP-SUM : LPRINT  FP 

4200  RETURN 
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SAMPLE  OF  COMPUTER  OUTPUT 
PREDICTING  PROCESS  TIME 


08:42:52 


“50-22616 
7.865225 
THE  HEATING 
2C 

50  .22616 
10.73101 
10.79969 
45.95846 
7.481843 
7.709377 
46.09828 
7  .732369 
THE  HEATING 
20 

46 .09828 
7.587246 
7  .644*7 
25 .05965 
1  .315487 
1  .233306 
26.57333 
.2723592 


AND  COOLING  TIMES  FOR 


08:47:3 7 


08:50:35 

AND  COOLING  TIMES  FOR 


06  :  55:04' 


06:57:28 


.2769489 

22. 62383  08:5^:34 

.0671669 

~r.=  HEADING  ATC-  COCLING  TIMES  FOR 


1  ARE  50.22616 


2  ARE  46.09828 


AF 


22 .32388 


PRJ&CESS  TIME  15  BASED  ON  CONTAINER  1  COKTRININGSEEF  heating  .cooling  -i*e 

sr.n-.:*.  oc 

-  •  '  -■  -  v 

-r.  without  insolation  1C. 73102 


79.51725  09:26:25 

7.318173 
7 .629492 

64.22834  09:51:23 

7  .800938 

INSULATION  THICKNESS  NEEDED  FOR  CONTAINER  2  CGN7AININGRICE 
1 .164021E-03  (m) 

7.647706 

f=  without  insulation  7.647706 
.6655295 
.9485735 

40.00987  10:29:16 

.2557978  * 

.4340378 

35.63942  10:52:57 

,  .144938 

Insulation  thickness  needed  for  container  3  containingpears 

4.421287E-03  (m) 
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Appendix  C 

Thermal  Diffusivities  of  TMT  Foods 

A.  Objective  and  Motivation 

The  objectives  are  to  :  (1)  estimate  the  thermal  diffusivites  of  TMT  foods  as  a  function 
temperature  with  the  COST  program,  (2)  experimentally  measure  the  thermal 
diffusivities,  and  (3)  compare  the  predicted  and  experimental  results.  Thermal 
diffusivities  are  necessary  data  for  computer  simulation  of  the  temperature  history  of 
foods. 

B.  Theoretical  Estimation 

Thermal  properties  (such  as  conductivity  diffusivitv  enthalpy,  specific  heat,  and  ice 
fraction)  of  food  samples  can  be  estimated  by  computer  program  developed  by  COST 
when  given  the  following  information: 

1.  category  of  the  food  sample  (namely,  cereals,  milk  or  eggs,  fat  or  oil,  meat,  fish, 
vegetables,  nuts,  sugars,  fruits,  beverages,  sauces  or  soups,  confectionery,  cheese, 
and  miscellaneous); 

2.  range  of  water  content; 

3.  compositions  of  food  sample  (namely,  %  water,  %  protein,  %  fat,  % 
carbohydrates,  %  minerals); 

4.  specific  temperature  or  temperature  range  of  interest; 

5.  other  helpful  details  such  as  form  of  product  (solid  or  liquid),  density  of  liquid 
portion,  density  of  solid  portion,  and  product  homogeneity. 


C.  Experimental  Measurements 

A  direct  method  was  used  to  measure  the  thermal  diffusivities  of  TMT  foods.  In  this 
experiment,  a  TMT  food  sample  was  filled  inside  a  21 1x400  can  which  had  a  T-type 
thermocouple  located  at  the  geometrical  cen  ter.  The  two  ends  of  the  can  were  sealed 
with  metal  lids  and  then  insulated  with  Styrofoam. 

To  conduct  the  experiment,  the  can  was  first  placed  in  a  water  bath  at  35  °C  until  it 
reached  an  equilibrium  temperature  (close  to  35  °C).  The  can  was  then  moved  to 
another  water  bath  at  a  higher  temperature  of  45°C,  and  simultaneously  the  center 
temperature  of  the  can  was  being  monitored  with  a  data  acquisition  system.  The 
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temperature  history  curve  was  used  to  calculate  the  thermal  diffusivity  of  the  food  at  40 
°C  (average  temperature  of  35°  and  45  °). 

Similarly,  the  thermal  diffusivities  at  60  °C  were  measured  using  water  baths  of  55  °C 
and  65  °C,  and  the  thermal  diffusivities  at  80  °C  were  measured  using  water  baths  of 
75  °C  and  85  °C. 

To  check  the  accuracy  of  this  experimental  technique,  we  measured  the  thermal 
diffusivity  of  bentonite  solution  with  this  experimental  technique.  We  also  measured 
the  thermal  conductivity,  specific  heat  capacity,  and  density  with  other  analytical 
techniques,  and  used  these  values  to  calculate  the  thermal  diffusivity.  The  thermal 
diffusivities  obtained  from  these  two  methods  were  within  5  °h. 

D.  Results 

Table  3  compares  the  experimental  and  thejoretical  predicted  thermal  diffusivites  of 
TMT  foods.  In  general,  the  predicted  valuep  are  higher  than  the  experimental  values. 
The  prediction  values  increase  with  temperature,  and  the  experimental  values  seem  to 
be  insensitive  to  changes  in  temperature.  The  food  items  have  quite  a  narrow  range, 
from  1.3  to  1.5.  It  is  likely  that  the  experimental  values  are  more  accurate  than  the 
predicted  values. 
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APPENDIX  D 

THERMAL  CONDUCTIVITY  OF  NAPKIN 
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Appendix  D 

Thermal  Conductivity  of  Napkin 


A.  Objective  and  Motivation 

To  measure  the  thermal  conductivity  of  a  commercial  restaurant  napkin.  This 
information  is  required  by  the  computer  program. 

B.  Experimental  Method 

The  diagram  below  shows  the  setup  we  used.  A  napkin  was  placed  between  a  hot  plate 
and  a  glass  flask.  The  glass  flask  had  a  circular  bottom  of  6  cm  in  diameter  and 
contained  200  ml  of  water. 


The  thermal  conductivity  k  was  determined  from  the  following  two  equations: 


Heat  flux: 


Thermal  conductivity: 


Q  m  Cf>  (T2  -  T ; ) 
A”  tA 


St  _  jLiTg.r_X.nl 

A  x 


where 

Q  = 

A  = 
m  = 
Cp  = 

T2  = 
Ti  = 
Tp  = 
Tn  = 

t  = 
X  a 

k  a 


amount  of  heat  flow  through  the  napkin  which  was  be  determined  by 

measuring  the  temperature  rise  of  the  200  ml  water  in  5  minutes,  W/sec. 

heat  transfer  area,  (0.032tc  m2) 

amount  of  water  being  heated  (200  ml) 

heat  capacity  of  water  (4. 181  kJ/kg  °C) 

water  temperature  after  heating,  °C 

water  temperature  before  heating,  °C 

temperature  of  hot  plate,  °C 

temperature  of  napkin,  °C 

heating  time,  (300  sec) 

thickness  on  the  upper  surface  of  napkin,  m 

thermal  conductivity,  W/(m  °K) 


C.  Experimental  Results 

The  average  thermal  conductivity  was  found  to  be  a  function  of  the  napkin  thickness: 
0.253  W/(m  °K)  for  0.8  mm  thickness,  0.203  W/(m  °K)  for  1.6  mm  thickness,  and 
0.146  W/(m  °K)  for  3  mm  thickness.  The  lower  thermal  conductivity  for  thicker 
napkin  might  be  due  to  the  larger  amount  of  air  trapped  inside. 


Equipment  for  measuring  thermal  conductivity  of  napkin 
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APPENDIX  E 

DENSITY  OF  THEraCSTABIUZED  FOODS 
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Appendix  E 


Densities  of  TMT  Foods 

A.  Objective  and  Motivation 

To  measure  the  densities  of  the  TMT  food  items  as  a  function  of  temperature.  These 
data  are  usedto  calculate  the  volume  of  compartment  necessary  to  contain  the  required 
weight  of  foods. 

B.  Experimental 

A  gas  stereopycnometer  was  used  to  measure  the  densities  of  TMT  foods. 

C.  Results 


Density  (g/cc) 

25°C  S.D. 

40°C  S.D. 

Apple  dessert 

1.153 

0.011 

1.129 

0.018 

Chicken  stew 

1.107 

0.008 

1.092 

0.014 

Chocolate  Pudding 

1.208 

0,010 

1.165 

0.020 

Pork  with  BBQ  sauce 

1,142 

HHfli 

1.094 

0.016 

Potatoes  augratin 

1.112 

0.013 

1.086 

0.023 

Rice  with  butter  sauce 

1.273 

0.021 

1.208 

0.034 

Sliced  peaches 

1.143 

0.016 

1.102 

Tuna  noodles 

1.075 

0.02 

1.075 

0.016 
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ABSTRACT 

A  unsteady  state  heat  conduction  method  was  used  to  measure  thermal  diffusivities 
of  both  homogeneous  and  nonhomogeneous  foods.  The  method  was  verified  by 
measuring  thermal  diffusivities  of  10%  bentonite  and  apple  sauce,  and  the  results  were 
found  to  have  reasonably  good  agreement  with  the  literature  values.  It  was  used  to 
measure  the  thermal  diffusivities  of  eight  commercial  foods.  The  data  were  found  to  be 
1.20  -  1.56  x  10‘7m2/sec  between  40°C  and  80°C.  They  were  almost  insensitive  to 
temperature  variations,  and  had  slightly  lower  values  compared  to  the  predictions  from  a 
program  developed  by  COST.  The  method  may  be  used  to  measure  the  thermal 
diffusivities  of  nonhomogeneous  viscous  foods. 
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INTRODUCTION 


Thermophysical  properties  of  food  such  as  thermal  diffusivity,  thermal 
conductivity,  density,  and  specific  heat  are  important  in  the  design  and  analysis  of  food 
processes.  Thermal  diffusivity  and  thermal  conductivity  are  related  by  the  equation: 


a  = 


k 

pCp 


(1) 


There  are  two  general  approaches  to  measure  thermal  diffusivity.  The  first 
approach  is  to  experimentally  determine  k,  p,  and  cp,  and  then  calculate  a.  The  second 
approach  is  simply  to  measure  thermal  diffusivity  directly.  Methods  to  determine  thermal 
diffusivity  and  thermal  conductivity  have  been  reviewed  by  Singh  (1982).  Dickerson  et  al. 
was  the  first  group  to  design  an  apparatus  for  direct  measurement  of  thermal  diffusivity 
(1965).  In  their  experiments,  boih  the  center  and  the  surface  temperatures  of  the  thermal 
diffusivity  apparatus  were  monitored  at  constant  heating  rates.  Instruments  were  required 
to  produce  ramp  function  change  on  temperature  of  surrounding  medium.  Bhowmik  & 
Hayakawa  (1979)  used  a  similar  apparatus,  but  they  imposed  instead  a  step  function 
change  on  temperature,  and  used  the  heat  conduction  solution  for  an  infinite  cylinder  as 
well  as  the  f  values  to  determine  thermal  diffusivities.  Uno  &  Hayakawa  (1980)  derived 
an  analytical  solution  for  heat  conduction  in  a  finite  cylinder  by  assuming  that  the  surface 
heat  transfer  conductances  at  its  top,  bottom  and  side  surfaces  were  all  finite  and  different 
from  each  other.  Hayakawa  et  al.  (1983)  developed  another  procedure  through  analysis  of 
transient  heat  conduction  formula  to  determine  the  thermal  diffusivity  of  some  spherical, 
homogeneous  sample  such  as  fresh  tomatoes  and  potatoes.  The  methods  developed  by 
these  researchers  either  required  sophisticated  apparatus  or  extensive  computer  calculations, 
and  were  intended  for  measuring  the  thermal  diffusivities  of  homogeneous  samples. 


Thermal  conductivity  of  homogeneous  food  is  often  measured  with  the  probe 
method  (Reidy  et  al.,  1951,  Mohsenin,  1980).  For  nonhomogeneous  foods,  it  is  necessary 
to  make  measurements  at  many  different  locations  in  the  food  sample  to  obtain  a 
representative  value,  because  the  results  are  location  dependent;  This  situation  may  be 
improved  by  first  measuring  a  representative  a  (as  was  done  in  this  study),  p,  and  Cp  and 
then  calculating  the  thermal  conductivity  k  from  these  three  parameters. 
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Since  most  commercial  foods  are  nonhomogeneous,  there  is  a  need  for  a  simple 
method  to  measure  their  thermophysical  properties.  The  objectives  of  this  work  were  (1) 
to  investigate  if  a  simple  method  can  be  used  to  measure  the  thermal  diffusivities  of 
nonhomogeneous  foods,  and  (2)  to  study  the  thermophysical  properties  of  several 
commercial  foods.  The  simple  method  has  the  advantages  that  the  apparatus  used  in  the 
experiments  are  inexpensive  and  readily  available.  It  requires  only  about  300  gram  food 
samples  to  obtain  a  representative  thermal  diffusivity. 


MATERIALS  AND  METHODS 

Materials 

The  experimental  method  for  thermal  diffusivity  measurements  was  verified  with  a 
ten  weight  percent  aqueous  bentonite  paste  (purified  grade  powder  from  Fisher  Scientific 
Co.)  and  apple  sauce  (Foodtown  brand,  purchased  from  a  local  supermarket).  Thermal 
diffusivities  and  thermal  conductivities  of  those  materials  were  readily  available  in  the 
literature,  and  were  used  for  comparing  to  the  experimental  values. 

Thermal  diffusivities  of  eight  kinds  of  food  samples  provided  by  US  Army  Natick 
RD&E  Center  were  also  determined.  The  samples  were  apple  dessert,  chicken  stew, 
chocolate  pudding,  pork  in  barbecue  sauce,  potatoes  Au-Gratin,  rice  in  butter  sauce,  sliced 
peaches,  and  tuna  with  noodles.  These  samples  are  nonhomogeneous,  except  for  chocolate 
pudding.  The  compositions  are  given  in  Table  1. 


Procedures 

The  food  samples  were  first  well  mixed  with  an  electric  blender  before  density  and  specific 
heat  measurements  were  conducted.  Since  most  of  the  foods  were  nonhomogeneous,  this 
step  made  them  more  homogeneous  and  yielded  more  representative  measurements. 

Density  measurements 

The  bulk  density  of  samples  were  determined  by  a  gas  stereopycnometer 
(Quantachrome  Model  SPY-2).  The  experiments  was  repeated  two  times  for  each 
samples.  The  reported  datum  was  a  mean  of  the  two  measurements. 
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Specific  heat  measurements 

The  specific  heat  of  samples  were  determined  by  a  differential  scanning  calorimeter 
(Mettler  Model  TA  4000  system)'.  The  temperatures  ranged  from  0  to  90°C  with  a 
constant  heating  rate  of  5°C/min.  The  specific  heat  measurement  was  conducted  twice  for 
each  samples  and  the  reported  data  were  the  means. 

Thermal  diffusivity  measurements 


Cylindrical  cans  (21 1  x400)  were  used  in  our  experiments.  The  experimental  setup 
was  shown  in  Fig.l.  Each  can  was  filled  with  sample  without  headspace,  and  a  lid  with  a 
2-inch  T-type  (copper-constantan)  thermocouple  at  the  center  was  placed  on  the  can.  Both 
ends  of  the  can  were  insulated  by  styrofoam  with  a  plastic  cover  for  limiting  heat  transfer 
in  the  radial  direction  only.  A  silicone  sealant  was  used  to  prevent  water  leakage  from  the 
ends  of  apparatus  during  heating.  The  filled  can  was  then  placed  in  a  constant,  preset 
temperature  water  bath  with  an  isotemp  immersion  circulator  (Fisher  Scientific  Co.,  Model 
No.  730)  and  held  for  sufficient  time  (about  2  hours)  to  insure  that  the  sample  attained  a 
uniform  constant  temperature  throughout  its  whole  mass.  The  preheated  can  was  then 
transferred  quickly  to  another  constant  temperature  water  bath  at  a  higher  temperature  than 
the  previous  one  and  a  data  acquisition  system  was  initiated  simultaneously  to  record  the 
temperature  of  food  during  heating.  For  determining  thermal  diffusivity  of  foods  at  40°C 
the  first  and  second  water  bath  temperatures  were  set  at  35°C  and  45°C,  respectively. 
Similar  procedures  were  used  to  obtain  the  thermal  diffusivity  data  at  higher  temperatures 
of  60° C  and  806C.  The  experiment  was  repeated  three  times  for  each  can  per  temperature. 
The  experiment  was  also  repeated  two  times  on  the  same  sample  in  a  different  can.  Each 
datum  was  a  mean  of  six  repeated  experiments,  with  one  standard  deviation. 


For  unsteady  heat  conduction  in  an  infinite  cylinder  with  constant  thermal 
diffusivity  (Bird  et  al.,  1960): 


9T 

dt 


r1  a  ,  3T., 

“iFs(r3r>] 


(2) 


where  a  =  — — - 

pcp 
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Assumptions  for  this  study  were:  (1)  homogeneous  &  isotropic  sample,  (2)  infinite 
cylindrical  shape  of  canned  food,  (3)  step-function  temperature  change  of  heat  exchange 
medium,  and  (4)  no  heat  transfer  from  both  ends  of  the  can. 


The  boundary  conditions  are: 
T  =  Ti,  0  <  r<  R  ,  t  =0 


T  =  Ts?  r  =  R ,  t>0 

dT  n 
~gf  =  0,  r-0 


The  analytical  solution  of  temperature  profiles  for  an  infinite  cylinder  was  (Carslaw  and 
Jaeger,  1959): 


Is - 
Ts 


oo 

-T  V1 

-  Ti  =  AmU 


n  «  1 


(3) 


nr  t 

where  F0  =  r2 


and  the  center  temperatures  can  be  approximated  by  the  equation  (when  F0  >  0.1): 

(4) 


T  •  T  cl 

In  _  j:  =  constant  -  [(2.4048)2  t 


Ts-T 


From  the  plot  of  In  ^  j.  versus  time,  a  can  be  obtained  from  the  slope  of  the  linear 
portion  of  the  curve  by  performing  linear  regression: 


slope  x  R2 
a=_  5.783 


(5) 


where  a  and  R  had  dimensions  of  m  and  m2/sec,  respectively. 
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RESULTS  AND  DISCUSSION 


Verification  of  experimental  method 

A  typical  example  of  the  temperature  history  curve  for  heat  penetration  (10% 
bentonite  at  40°C)  was  shown  in  Fig.  2.  From  it,  the  slope  of  the  linear  portion  was  -8.963 
x  10*4  /sec.  The  average  of  several  inside  diameter  measurements  of  the  can  was  0.066  m. 
From  Eqn.  5,  we  obtained 

_  8.963  x  IQ-4  x  (0.033)2 
a  =  "  5.783 

=  1.688  x  10'7m2/sec 

To  verify  our  experimental  method,  we  measured  the  thermal  diffusivities  for  two 
homogeneous  samples,  10%  bentonite  paste  and  apple  sauce  (Table  2).  The  thermal 
diffusivity  of  10%  bentonite  varied  between  1.65  - 1.57  x  10'7  m2/sec  at  temperature  range 
of  40  to  80°C.  These  results  compared  well  to  the  literature  values:  1.87  x  10" 7  n^/sec  for 
9%  bentonite  suspension  (Hayakawa  et  al.,  1974),  1,75  x  10*7m2/sec  for  8%  bentonite 
suspension  (Uno  et  al.,  1980),  and  1.51  x  10’7m2/sec  for  10%  bentonite  suspension 
(Niekamp  et  al.,  1984).  For  apple  sauce,  the  thermal  diffusivity  varied  between  1.44  -  1.33 
x  lO*7  m2/sec  at  temperature  range  of  40  to  80°C.  These  results  also  compared  well  to  the 
value  1.61  x  10*7m2/secof  Unoet  al.  (1980).  The  slight  differences  in  the  above  thermal 
diffusivity  values  may  be  due  to  the  different  methods  and  conditions  used  in  the 
experiments. 

To  further  verify  our  experimental  method,  we  also  measured  thermal 
conductivities  (by  direct  probe  method),  densities,  and  specific  heat  of  the  10%  bentonite 
and  apple  sauce.  These  values  were  used  to  calculate  the  thermal  diffusivities  with  Eqn.  1. 
The  calculated  values  compared  quite  well  to  the  experimental  values,  with  less  than  10% 
difference  (Table  2).  The  consistency  suggested  that  our  method  was  rather  reliable.  The 
results  showed  that  even  though  the  length  to  radius  ratio  of  the  cans  used  in  these 
experiments  was  only  two,  the  infinite  cylinder  assumption  was  still  valid  due  to  the  heat 
insulations  at  the  two  ends. 


88 


Thermophysical  properties  measurements  of  foods 

Another  objective  of  this  work  was  to  examine  the  thermal  properties  of  real  foods 
since  these  kinds  of  data  were  rare  in  the  literature.  The  thermal  diffusivities  of  eight  kinds 
of  commercial  foods  were  measured  (Table  3).  The  method  could  measure  the  thermal 
diffusivities  of  most  samples,  except  sliced  peaches  which  were  not  a  good  heat  conduction 
model.  The  experimental  thermal  diffusivities  and  thermal  conductivities  of  the  foods  were 
in  the  range  of  1.20  -  1.56  x  10'7m2/sec  and  0.44  -  0.67  W/mK,  respectively,  between 
temperatures  of  40°C  and  80°C. 

A  computer  program  developed  by  the  subcommittee  of  COST  90  was  also  used 
here  to  predict  the  thermal  properties  of  foods,  and  the  predicted  values  were  shown  in 
Table  3.  The  predicted  thermal  diffusivities  were  higher  than  those  obtained  from  the 
experiments,  except  for  sliced  peaches.  The  program  predicted  that  thermal  diffusivity 
should  increase  with  temperature;  however,  the  experimental  values  were  relatively 
insensitive  to  temperature  variations.  The  discrepancy  may  be  due  to  the  presence  of  void 
space  in  the  nonhomogeneous  foods.  The  expansion  of  the  entrapped  air  in  void  space 
could  reduce  the  heat  conduction  rate  in  food  materials  during  heating. 

The  effect  of  food  homogeneity  on  the  thermal  diffusivity  was  also  investigated 
using  both  non-blended  and  blended  samples.  The  blended  samples  of  chicken  stew  and 
sliced  peaches  were  prepared  by  mixing  the  food  samples  in  a  household  blender  for  3 
minutes.  In  Table  4,  the  thermal  diffusivities  of  the  blended  samples  (1.43  -  1.34  x  10*7 
m2/sec)  were  about  4%  higher  than  those  of  non-blended  samples  (1.38  -  1.27  x  10*7 
m2/sec)  for  chicken  stew.  This  suggested  that  the  method  may  also  be  used  to  measure 
thermal  diffusivities  for  some  nonhomogeneous  food  samples. 

We  woe  unable  to  obtain  reliable  thermal  diffusivities  for  non-blended  sliced 
peaches  at  60°C  and  80°C.  Although  the  heating  curve  for  40°C  still  showed  a  linear 
portion,  the  same  was  not  observed  for  80°C  (Fig.  3).  It  suggested  that  the  non-blended 
sliced  peaches  no  longer  followed  the  heat  conduction  mechanism  at  80°C,  and  convective 
heat  transfer  might  have  occurred.  To  the  contrary,  the  thermal  diffusivities  of  the  blended 
sliced  peaches  could  be  measured  at  80°C.  The  thermal  diffusivities  of  the  blended 
samples  were  found  to  be  slightly  lower  than  those  of  the  non-blended  samples  (Table  4). 
These  observations  suggested  that  the  blending  of  sliced  peaches  tended  to  increase  the 
viscosity  of  the  whole  mass  and  result  in  the  food  behaving  more  like  a  heat  conduction 
food  model. 


89 


CONCLUSION 


The  simple  method  described  in  this  work  was  able  tp  measure  the  thermal 
diffusivities  of  both  nonhomogeneous  and  homogeneous  foods  with  reasonable  results. 
The  thermal  diffusivities  and  thermal  conductivities  of  the  foods  examined  were  found  in 
the  range  of  1.20  -  1.56  x  10*7m2/sec  and  0.44  -  0.67  W/mlC,  respectively,  between 
temperatures  of  40°  C  and  80°  C.  The  thermal  diffusivides  were  almost  insensitive  to 
temperature  variations,  and  have  slightly  lower  values  compared  to  predictions  from  the 
COST  program.  The  thermal  diffusivides  obtained  for  blended  chicken  stew  samples  were 
slightly  higher  than  those  for  non-blended  samples. 

NOMENCLATURE 

Symbol 

cp  Specific  heat,  kJ/kgK 
F0  Fouier  number,  dimensionless  process  time- 
J0  Bessel  function  of  first  kind  of  order  zero 
J i  Bessel  function  of  first  kind  of  order  one 
k  Thermal  conductivity,  W/mK 
R  Radius,  m 
r  Radial  coordinate 

Ts  Temperature  of  surrounding  medium,  °C 
Ti  Initial  temperature,  °C 
t  Time,  sec 
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Greek  letters 


a  Thermal  diffusivity,  m2/sec 
Mn  Roots  of  Bessel  function  Jo(Mn) 
p  Density,  kgAn3 
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Table  1.  Compositions  of  food  samples  a 


Samples/Components  b 

Water 

Carbohydrates 

Fat 

Protein 

Ash 

Apple  Dessert  (AD) 

72.9 

25.7 

0.9 

0.3 

0.2 

Chocolate  Pudding  (CP) 

54  2 

41.2 

2j0 

1.5 

1.1 

Chicken  Stew  (CS) 

76.8 

7.6 

5.0 

9.3 

13 

Potatoes  Au-Gratin  (PA) 

76.2 

15.0 

43 

3.0 

1.5 

Pork  in  BBQ  sauce  (PB) 

63.3 

7.6 

11.1 

16.6 

1.4 

Rice  in  Butter  sauce  (RB) 

65.2 

26.4 

5.0 

2.5 

0.9 

Sliced  Peaches  (SP) 

81.2 

18.0 

0.1 

0.5 

0.2 

Tuna  with  Noodles  (TN) 

72.8 

13.3 

3.6 

0.0 

a  Compositions  provided  by  US  Army  Natick  RD&E  Center 
b  Composition  %  (w/w) 


Table  2.  Experimental  thermal  diffiisivities  of  10%  bentonite  and  apple  sauce 


Tempa  a(exp) b 

a(exp) c 

10%  bentonite 

40 

1.650 

1.556* 

60 

,  1.599 

1.554* 

80 

1.569 

1.542  * 

apple  sauce 

40 

60 

1.513 

80 

1.498 

a  Temperature  (°C) 
b  Experimental  thermal  diffusivity  (xl0*7m2/see)  with  standard 
deviation  less  than  3% 

c  Thermal  diffusivity  calculated  from  k,  p,  and  Cp  (xlO*7  m2/sec) 
(Sheen  et  al.,  1991)  j 

*  Data  shown  was  7.5%  bentonite  (these  values  should)  be  slightly 
higher  at  10%  bentonite,  Niekamp  et  al.,  1984) 


Table  3.  Experimental  thermal  physical  properties  of  food  samples 


a(exp) b 

p(exp)c  Cp(exp)d 

k(cal)e 

HUSH! 

k(pred)  8 

AD 

40 

1.340  ±0.013 

1128.8 

3.635 

1.464 

0346 

60 

1.350  ±0.049 

3.625 

1343 

0374 

|  80 

1.342  ±0.052 

3.745 

1.622 

0.600 

CP 

40 

1.317  ±0.051 

1165.0 

3290 

0305 

1.441 

0.478 

60 

1.284  ±0.034 

3285 

0.491 

1.511 

80 

1233  ±0.046 

0.486 

1.582 

CS 

«  40 

1.384  ±0.043 

1091.5 

1 

3325 

0332 

1.430 

0344 

60 

1345*0.028 

3365 

0323 

1.508 

0371 

80 

1.273  ±0.026 

3395 

0.499 

1.588 

0399 

PA 

40 

1.420  ±0.034 

1086.1 

3.695 

0370 

1.451 

0348 

i  60 

1.366  ±0.029 

1 3.645 

0341 

1.530 

0.575 

80 

1.348  ±0.030 

3.660 

0336 

0.602 

PB 

!  40 

1.266  ±0.026 

1039.9 

1 3.240 

0.449 

1.378 

0.488 

!  60 

1.245  ±0.025 

3.230 

. 

0.440 

1.449 

0.511 

80 

1202  ±0.023 

3.380 

0.444 

1321 

0.534 

RB 

|  40 

1.373  ±0.033 

1208.1 

3.050 

0.506 

1.441 

0313 

i  60 

1.376  ±0.040 

3200 

0.532 

1.516 

0338 

'  80 

1.442  ±0.098 

3.245 

0.557 

1.591 

0.562 

IN 

;  40 

1.4 18  ±0.028 

1075jO 

3.645 

0.556 

1.426 

0333 

60 

1.405  ±0.034 

3.740 

0365 

1.503 

0.559 

80 

1.385  ±0.038 

3.800 

0.566 

1.580 

0.585 

SP* 

i  40 

1.545  ±0.074 

1105.5 

3.801 

0.647 

1.470 

0.572 

1  60 

1.523  ±0.083 

3.815 

0.640 

1.552 

0.601 

80 

1.558  ±0.072 

3.915 

0.680 

a 

) 

Temperature  (°C) 

b  Experimental  thermal  diffusivity  with  standard  deviation  (xlO*7  m2/sec) 
c  Experimental  density  (kg/m3),  varies  very  slightly  within  40  to  80°C 
d  Experimental  specific  heat  (kJ/kgK) 

t  Thermal  conductivity  calculated  from  a,  p,  and  Cp  (W/mK) 

1  Thermal  diffusivity  predicted  by  COST  program  (xl  O*7  m2/sec) 

*  Thermal  conductivity  predicted  by  COST  program  (W/mK) 

Blended  samples  used 
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Table  4.  Effect  of  food  homogeneity  on  thermal  diffusivity  of  chicken  stew  and  sliced 
peaches 


a(exp) b 

a(pred) c 

cs 

40 

1384 ±0.043 

1.430 

0.968 

60 

1.345  ±0.028 

1308 

0.892 

80 

1.273  ±0.026 

1388 

0.802 

CS  (blended) 

40 

1 .434  ±  0.033 

1.430 

1.000 

60 

1.391  ±0.041 

[  1308 

0.922 

80 

1.338  ±0.038 

1388 

0.843 

SP 

40 

1.644  ±0.088 

1.470 

1.118 

60 

ND* 

1352 

ND* 

80 

ND* 

1.635 

ND* 

SP  (blended) 

40 

1.545  ±0.074 

1.470 

1.051 

60 

1.523  ±0.083 

1.552 

0.981 

80 

1.558  ±0.072 

1.635 

0553 

a 

b 

c 

d 

* 


Temperature  (°C) 

Experimental  thermal  diffusivity  with  standard  deviation  (xlO*7  m2/scc) 
Thennal  diffusivity  predicted  by  COST  program  (xlO'7  m2/sec) 


ND  =  not  determined 


I 

j 

i 
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Fig.  2.  Typical  temperature  curve  for  heat  penetration  of  10%  bentonite  paste  at  40°C. 


1 


Time  (min) 

Fig.  3.  Temperature  curves  for  heat  penetration  of  non-blended  sliced  peaches  at  40°C 
!  and  80°C. 
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APPENDIX  G 


Initialize  tray  design 
(OPTRD,  MODEL) 


Select  or  set 
insulation  thickness 
(MODEL) 


Estimate  Fp  value 
for  the  other  low 
acid  food(s) 
processed  for  ti 
(PROCESS) 


Refine  tray  design 
(main  program) 


Calculate  f  &  j 
values  for  low  and 
high  acid  foods 
(EIGEN) 


Estimate  Fp  value 
for  high  add  food 
compartment 
(PROCESS) 


Optimization 
calculations 
(main,  IMTST) 


Calculate 

processing  time  (t’s) 
to  achieve  target  Fp 
values  for  low  add 
foods  (PROCESS) 


Set  processing  time 
tl  equal  to  the 
largest  of  t's 
(MODEL) 


Optimal  tray 
design 

SssimainlX^ 


Calculate 
time-temperature 
history  &  dimensions 
J  Of  comaprtments 
(main  program) 


Flow  chart  using  the  (f  &  j)  formula  method  to  optimize  the  compartment  tray  design 
(♦Capitals  in  parentheses  represent  subroutines  in  the  computer  program) 

Computer  Program  .  _  _ 


Input  files  required  for  optimizing  compartment  tray  design 

1 .  "TRAYDESI 1  .DAT"  for  specifying  the  geometric,  operating,  or  safely  constraints  in  optimal  compartment  tray  design; 

2.  "OPT2.DAT"  for  specifying  tltc  retort  conditions  and  types,  volumes,  and  properties  of  foods  in  the  tray  for  opiimizalio 

Input  file  for  specifying  information  regarding  retort  and  foods  in  the  menu 

1 .  The  actual  input  file  called  'TRAYDIiSl  1  .DAT"  is  as  follows: 

atx» 

■  vfrrtr~  wn J" 

360.6  20.0  0.1 29 S3 

121.1  23.0  20.0 

Chi*  br  '  • 

0.000375  0.00  0.00  0.00 

0.4561  1.752E-07 
10.0  121.1  6.1 

Potaioa 

0.000261  0.00  0.00  0.00 

0.6588  1.387E-07 
10.0  121.1  6.1 

Gnt  pea 

0.000261  0-00  0.00  0.00 

0.4917  1.833E-07 

10.0  t21.1  6.1 

2.  Explanation  of  terms  for  the  above  input  file: 

0.008 

360.6 

20.0 

0.12983 

121.1 
25.0 
20.0 
Chix  br 


-  G,  width  of  the  gap  (connecting  portion)  between  compartments  in  m 

W 

-  HTA,  overall  heat  transfer  coefficient  in  ^ 

-  TCOOL,  cooling  water  temperaiure  in  °G 

W 

>  XK1NS,  thermal  conductivity  of  insulation  material  (e.g.,  napkin)  in  jg 

•  TR,  retort  temperature  in  °G 

-  TI,  initial  food  temperature  in  °C. 

-  TC,  cooling  water  lemperature  in  °C. 

-  chix  br/grvy,  the  "entxte"  food 
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0.000375 

0 

0.457  T 

1.752E-07 


.  V(l),  ilip  volume  for  entree  compartment  in  »n-\  considering  headspace  ami  tapering  angle  of  tray 
-  XX(1  J),  where  J  =  l,  2,  or  3,  initial  value  for  valuables  in  optimization  calculations 


w 

-  XK(l), thennal conductivity forchix br/grvy,  in 
•  ALPHAfl),  thermal  diffusivity  for  chix  br/grvy  tn  — jj— 


10.0 

121.1 

6.1 

Potatoa 

0.000261 

0 

0.6580 


•  ZZ(l),z  value  for  "entree"  food,  in  °C. 

-  TREFfls),  reference  temperature  in-  °C,  for  lethality  calculation  for  "entree”  food 

•  FP(1),  target  sterilization  lethality  F  in  minutes  for  "entree”  food’ 

-  potato  augratm,  the  "starch"  food 

-  V(2>,  the  volume  for  entree  compartment  in. m?,  considering  headspace  and  tapering  angle  of  tray 

-  XX(2J),  where  1  =  lv2,  or  3.  initial  value  for  valuables  in  optimization- calculations 

w 

-  XK(2),  thermal  conductivity  for'potato  augratin ,  in 


1.387E-0? 


-  ALPHA  (2)..  thermal  di  ffusi vity  for  potato,  augratin  in 


10.0 

121.1- 

6.1 

Cm  pea 

0:000261 

0 

0.4917 


L833E-07 


10.0 

121.1 

6.1 


-  ZZ(12>,7t  value  for  "starch"  food., in  °C 

-  TREF(2>,  reference  temperature  in  °C.  for  lethality  calculation- for"s»rch"  food 

-  FP{2),  target  sterilization  lethality  F  in  minutes  for  "standi"  ford 

-  green  peas,  the  "vegetable  (dessen)”  food 

-  V(3),.the  volume  for  entree  compartment  in  m?,  considering  headspace  and  tapering  angle  of  tray 


-  XX (3  J)v  where  J  =  1,  2,  or  3;  initial:  value  for  valuables  in  optimization- calculations 


W 

-  XK(3),  thermal  conductivity  for  green  peas,  in  ^ 


•  ALPllAf 3),  thermal  diffusivity  for  green  peas,  in; 


m2 


s 


-  ZZ(3),  z  value;  for  "entree"  food.  in.°C, 


-  TREF(3).  reference  temperature  in  °C..  for  lethality- calculation  for  "vegetable"  food;  for  high  add  dessert 
TREF(3)  was  chosenas  100  0 

-  FP{3),  target  sterilization  lethality  F  in  minutes  far  "vegetable"' foodFPf-3).  was  chosen  as  3:  l  or  high  acid 
dessert. 


3.  Note: 

When  a,  high  acid  dessert  is  included  in-  the  meal:  and  less  lethality  is  required  for  the  dessert  compartment 
"TRAYDESli.DA-'J-"  file  should.be  modified,  e-.g.  for.  meuls3t.it  looks ihis  (with  target  lethality  chosen1  to-be:  3'.  t  at  refe 
temperature  100  °Gforihc  desserts  pears  slices  I:  *' 


1.G4- 


121. 1  210  20.0 


Chicken 

0.000375  0.00  0.00  0.00 

0.4284  I.429E07 
10.0  121.)  6.1 

Chocola 

0.000261  0.00  0.00  0.00 

0.3291  1.235E-07 
10.0  121.1  6.1 

Pe*r* 

0.000261  0.00  0  00  0.00 

0.4501  1.476E-07 

10.0  100.0  3.1 

Example  of  output  file  -  Optimization  calculation  for  menu  #  12 

(I.  Intermediate  and  final  results  of  optimization  calculations:) . 

TRAY  DESIGN  OF  MULTICOMPARTMENT  M.R.E. 

MEAL  NAMES  ARE  Chix  br  Potatoa  Gm  pea 
INDEPENDENT  VARIABLES 

NAME  LOWER  BOUND  UPPER  BOUND  VALUE 

INSUL  O.OOOOOE+OO  0.(XXKX)E+lX)  0.(XXXX)E+(X) 

HE1GT  2.30000E-02  3.(XXXX)E-02  ■  2.9(XXX)E-02 

LEN  1.50000E-01  2.90000E-01  2.50<XK)E-Ol 

DEPENDENT  VARIABLES 

NAME  LOWER  BOUND  UPPER  BOUND  VALUE 


VDO 

0.00000E+00 

1.00000E+00 

3.29087E-04 

WSC 

8.00000E-02 

1.50000E-01  1.00813E-01 

DDSRT 

1. 50000 E- 02 

3.00000E-02  2.90000E-02 
• 

HTIME 

l.OOOOOE+OI 

2.DOOOOE+G2  3.58375E+01 

FE 

6.00000E+00 

2.50000E+01 

I.30976E+0I 

FS 

6.00000E+00 

2.000(X)E+01 

6. 16291E+00 

FD 

1.00000E+00 

3.l(XXX)E+03 

1.3281  (E+0J 

TFIN 

6.I0000E+O1 

3,21 100E+02 

1 .208 1 8E+02 

OBJECTIVE  FUNCTION 

NAME 

value 

REL  DEV 

ABS  DEV 
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DEV1A 


1.42416E+01  1.00000E-02  l.OOOOOE-Ol 


ITERATION  0 

VARIABLES  IN  SIMPLEX  (CENTROID  IS  VERTEX  7) 

VERTEX  1234567 

1NSUL  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

HEIOT  2.90000E-02  2.48250E-02  2.79I31E-02  2.72095E-02  2.31I19E-02  2.52976E-02  2.62262E-02 

LEN  2.S0000E-01  2.57277E-01  2.0491 8E-01  2.75493E-01  2.32186E-01  2.119G3E-01  2.38629E-01 

VDO  3.29087E-0*  3.44187E-04  3.32464E-04  3.34835E-04  3.525 15E-04  3.42150E-04 

WSC  I.00813E-01  1.11238E-01  1.2097  IE-01  1.04834E-01  1.36070E-01  1.32661E-01 

DDSRT  2.90000E-02  2.48250E-02  2.79131E-02  2.72095E-02  2JI119E-02  2.52976E-02 
HTIME  3.58375E+01  2.86355E+OI  3-37466E+0!  3.25850E+01  2.56152E+01  2.93324E+01 

FE  1.30976E+01  1.I814IE+01  t.2]4i9E+01  I.24I24E+0I  1.09755E+01  I.I5537E+01 

FS  6.16291E+00  6.14307E+00  6.031  DOE +00  6.04372E+00  6.03057E+00  6.09024E+00 

FD  I.32811E+01  U0523E+01  1.28050E+01  I26327E+01  I.13711E+01  U1223E+01 

TF1N  1.20818E+02  1.20946E+02  I.20845E+02  1.20869E+02  1.20987E+02  1.20930E+02 

DEV1A  1.42416E+01  1.17095E+01  1.28160E+01  1.29014E+01  1.02160E+01  1.14857E+01 

TRAY  DESIGN  OF  MULTICOMPARTMENT  M.R.E. 

PROCEDURE  HAS  CONVERGED  IN  9  ITERATIONS. 

THE  SOLUTION  IS  AS  FOLLOWS: 

INDEPENDENT  VARIABLES 

NAME  LOWER  BOUND  UPPER  BOUND  VALUE 

1NSUL  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 
HEIGT  2.30000E-02  3.00000E-02  2.311 19E-02 
LEN  1.50000E-01  2.90000E-01  2.32186E-01 
DEPENDENT  VARIABLES 

NAME  LOWER  BOUND  UPPER  BOUND  VALUE 

VDO  O.OOOOOE+OO  1  .(XXXX)E+(X)  3.525 15E-04 

WSC  8.00000E-02  1.50000E-01  1.36070E-01 

DDSRT  1.50000E-02  3.00000E-02  2.311 19E-02 

HTIME  l.OOOOOE+Ot  2.00000E+02  2.56I52E+01 

FE  6.00000E+00  2.50000E+01  I.09755E+0I 

FS  6.00000E+00  2.00000E+01  6.03057E+00 

FD  1.00000E+00  3.10000E+03  1.13711E+01 

TF1N  6.10000E+0!  1.21100E+02  1.20987E+02. 


objective  punchon 


name  value  rel  dev  absdev 

DEVJA  I.O2160E+0I  I.OOOOOE02  1.00000E-01 

(2.  Time-temperature  history  of  foods:) 


AT  TIME  *  nun. 

TEMP.  -  DEG.  C. 

(Time-temperature  history  for  food  in  entree  compartment.) 
Tv^f  u't'-U'  c  (rv«o) 

1.025  27.870 

2,049 

35.942 

21.517 

120667 

22.541 

120776 

23.566 

120.858 

24.591 

120.919 

25.615 

120.965 

1 20.965  " 

25.808 

120.738 

26.218 

118.771 

26.751 

113.415 

27783 

105.425 

27.694 

97.957 

27.886 

94.182 

30.157 

94.182 

30.365 

89.943 

30.806 

81.709 

31.378 

72.454 

31.951 

64.S88 

32.392 

59.339 

32.599 

57.091 

(Time-temperature  history  for  food  in  Man'll  eoinpcirtmcm;' 

1.025  26.500 

2.049 

30.853 

3.074 

37.636 

4.098 

46.228 

5.123 

55.904 

6.14R 

65,942 

7,172 

75.706 

S.197 

84.523 - CONTINUE' - 

*  - 


9.221 

91.377 

10.246 

96.946 

11.271 

101.472 

12.295 

105.150 

13.320 

108.138 

14.345 

1 10.567 

15.369 

112.541 

16.394 

114.145 

17.418 

115.448 

18.443 

1 16.507 

19.468 

117.368 

20.492 

118.067 

21.517 

118.635 

22.541 

119.097 

23.566 

119.472 

24.591 

119.777 

25.615 

120.025 

25.615 

120.025 

25.885 

119.801 

26.461 

1 17.852 

27.207 

I1Z546 

27.953 

104.630 

28.529 

97.232 

28.799 

93.492 

31.983 

93.492 

32.273 

89.292 

32.892 

81.135 

33.694 

71. <>66 

34.497 

64.173 

35.115 

58.973 

35.406 

56.746 

■temperature  history  for  food 

1.025 

28.020 

2.049 

36.486 

3.074 

•18.811 

4.09R 

62.931 

5.123 

76.879 
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6.148  < 

88.578 

7.172 

96.960 

8.197 

103.182 

9.221 

107.800 

10.246 

111.228 

11.271 

1)3.772 

12.295 

115.661 

13.320 

1)7.063 

14.345 

118.103 

15.369 

118.875 

16.394 

1)9.449 

17.418 

1)9.874 

18.443 

120.190 

19.468 

120.425 

20.492  . 

120.599 

21.517 

120.728 

22.541 

120.824 

23.566 

120.895 

24.591 

120.948 

25.615 

120.987 

25.615 

120.987 

25.803 

120.760 

26.204 

118.793 

26.723 

!  13.436 

27.243 

105.444 

27.644 

97.974 

27.832 

94.198 

30.048 

94.198 

30.250 

89.958 

30.681 

81.723 

31.240 

72.466 

31.798 

64.597 

32.229 

59.348 

32.431 

57.099 
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(Optimal  tray  dimensions:) 


ENTREE  COMPARTMENT  DIMENSION  0.24301 15 
STARCH  COMPARTMENT  DIMENSION  0. 1 175058 
DESSERT  COMPARTMENT  DIMENSION  0. 1 175058 
DIMENSION  OF  INNER  DESSERT  TRAY  0.1 175058 
VOLUME  OF  (OUTER)  DESSERT  COMPARTMENT 


9.0227351E-02  2,311 1865E-02 
0.1298719  2.3111865E-02 

.  0.1298719  2,3 11 1 865E-02 

0.1298719  2.31 1 1865H-02 

3.52703 15E-04 


STOP 

C 

C  Main  program  for 

C  the  optimization  of  rctonabie  plastic  compartment  tray  design 
C  Ref.:  Saguy,  1..  1983.  Optimization  of  dynamic  systems  utilizing  the 
C  Maximum  principle,  pp.  321-359.  in  "Computer-Aided  Techniques 
C  in  Food  Technology",  ed.  1.  Saguy,  Marcel  Dekker,  Inc.,  New  York. 

C 

q  ****************************  NOMENCLATURE  ******************************** 
C  F  objective  fu  notion 

C  X(l) . X(NX)  an  army  containing  values  of  the  independent  variables 

C  Y(l),..„  Y(NY)  an  array  containing  values  of  the  dependent  variables 

C  P(l)....,  P(NP)  an  array  conatining  values  of  the  parameters  in  the 
C  model  which  may  be  varied  from  one  optimization  run 

C  to  the  next 

C  NX  number  of  independent  decision  variables 
C  NY  number  of  dependent  variables 

C  NP  number  of  parameters 

C  MAX1T  maximum  allowable  number  of  iterations  to  be  performed 
C  NFREQ  iteration  frequency  at  which  intermediate  printing  of  the  current 
C  simplex  is  to  be  performed  to  monitor  progress  toward  solution 

C  NAMEX  name  of  variable,  expressed  as  five  alphanumeric  characters 
C  XL(1)  lower  bound  on  variable  (teal) 

C  XU(1)  upper  bound  on  variable  (real) 

C  X(l)  initial  value  of  the  variable  corresponding  to  a  feasible  point 

C  NAMEY  name  of  variable,  expressed  as  five  alphanumeric  characters 
C  YL(1)  lower  bound  on  variable  (real) 

C  YU(1)  upper  bound  on  variable  (real) 

C  NAMEP  name  of  parameter,  expressed  as  five  alphanumeric  characters 
C  P(I)  value  of  parameter 

C  NAMEF  name  of  objective  function,  expressed  as  five  alphanumeric  characters 

C  RDEV  allowable  relau've  deviation  in  objective  function  value  to  be 
C  used  in  convergence  test  ( a  value  of  0.(X)1  is  typical) 

C  ADEV  allowable  absolute  deviation  in  objective  function  value  to  be 
C  used  in  convergence  test  ( a  value  of  (1.00 1  is  typical) 

£  **************************************************************************** 

C 

DOUBLE  PRECISION  DSEED 

CHARACTER  NTITL*47,NAMEF*5,NAMEX(12)*5,NAMEY(30)*5,NAMEP(1)*5, 
♦OLD  *2 

COMMON/OPT/  F.X  ( 1 2),Y(30),P(  1 ) 

COMM  ON/CON  D 1/FL  ANG  E,G.  H  E  AD,  V  (3),XLL(  3.3) 

COMMON/STORE/  NX,NY,NP,XL(12),XU(12),YL(30),YU(30), 

*XC(  1 2),XX(  1 2,24  ),YY  (30,24),FF(24)JG,N1T, 

•ALPHA, BETA, KMAX.MAX1T,FR.FA,FDEV,FMIN,NFREQ 
COMMON/ASTORE/NT1TL, NAMEF, NAMEX,NAMEY,NAMEP,OLD 
C0MM0N/FANDJ/C(3),GI(3),FH(3).HJ(3).THEAT1,T1.TR.TC 
DIMENSION  TM1  (300),TM2(7),TM3(7),TT1(300),T2(7),T3(7) 

ALPHA*  1.3 
BETA-0.5 
GAMMA=0.10 
NMAX1=50 


109 


DSEED-123457.D0 

MAX1T-10Q 

C  .....  READ  BASIC  DATA  FOR  OPTIMIZATION  RUN . 

99  CALL  OPTRD 
CALL  OPTPR(J) 

C  . USE  OLD  SIMPLEX  OR  NOT? ..... 

I  F(OLD.EQ.'  NO*  )GGTO  200 
N1T=0 
1ND-3 

CALL  MODELOND) 

KMAX*2*NX 

OPEN{8.F1LE«'COMP.DAT>STATUS*’OLD>) 

KCR-KMAX 

GG-0 

805  KPT-KCR 
1F(KCR.GT.7)KPT«7 
1NDEX-IGG*7 
DO8021-I.NX 

READ<8t300l)(XX(I.K+INDEX),K*l,KPT) 

802  CONTINUE 
1F(NY)804, 804,803 
805D0  8061-I.NY 

READ(8.3001)(YY<IPK+JNDEX),K-KKPT) 

806  CONTINUE 

804  READ(8,300  1  RFF(K+  INDKX).K«1,K  PT) 

KCR-KCR-7 

IGG-IGG+I 

1F(KCR)807,8Q7,808 

807  CONTINUE 
1ND-2 
GOTO  300 

200  CONTINUE 
DO  100  l-l.NX 
lOOXCd)-X(l) 

NIT=0 

1ND-1 

CALL  1MTST(N1,1  .IFLAG.1ND) 

CALL  OPTPR(2) 

1ND-2 

1F(1FLAG)500,50 1 ,500 
501  CONTINUE 

C  .....  ESTABLISH  INITIAL  SIMPLEX ...» 

KMAX»2*NX 

K-l 

104  FF(K)»F 

DO  102  M.NX 
XX(1,K)»X(1) 

102  CONTINUE 
IF(NY)120.120.I21 

121  CONTINUE 
DO  105  1=1. NY 

105  YY(t,K)=Y(l) 

1 20  CONTINUE  • 

DO  103  1=1. NX 

103  XC( ! MXC(I>* (K-l.) »X'fl »/K 

IF(K-KMAX) 11 0,300, 300 
110  K-K+l 
DO  106  l-l.NX 
CALL  GGUBS(DSEED.YFL) 

106  X(l)=XL(l>+YFL*(XUU)-XLtW 
CALL  1MTST1N  1,NMAX1,IFLAG,1ND) 
IF(1FLAG)502»503»5f)2 

503  CONTINUE 
GOTO  104 

C  BEGIN  ITERATIVE  SEARCH  FOR  OPTIMUM 

300 CONTINUE 

C  ESTABLISH  COUNTER  FOR  INTERMEDIATE  PRINTING 
1F(NFREQ)520„520,508 
520 IPRT-MAXIT+l 
GOTO  <no 
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508  1PRT=NFREQ 
WRITE(6.!003) 

CALL  DPTPR(3) 

509  CONTINUE 

C  . FIND  PDINTS  DF  SIMPLEX  Willi  HIGHEST  AND  LDWEST  FUNCTION  VAL. .. 

317N1T-NIT+1 

FMAX=-1.0E10 

FM1N-1.0E10 

JG*0 

JL=0 

DO  323  J-l.KMAX 
1F(FF(J)-FMAX  )30 1 .301 .303 
303  JG-J 

FMAX*FF(J) 

301  CONTINUE 

1F(FF(J)-FM1  N  )322.323.323 

322  FMIN*FF(J) 

JL=J 

323  CONTINUE 

C  . TEST  FOR  CONVERGENCE . 

I:DEV«I‘MAX1:M1N 

FTEST-FDE  V-FR*  ABSlPMI  N  )-FA 
1F(FTEST)400, 400,401 

C  . TEST  SATISFIED,  PROCEDURE  HAS  CONVERGED . 

400  CALL  DPTPR(l) 

WRITE(6.1000)NJT 
DD  404  M.NX 
X(I)*XX(IJL) 

404  CONTINUE 
1F(NY)407,407,406 

406  DD  405 1=1,NY 

405  Y(1>=YY(I.JL) 

407  CONTINUE 
F=FF(JL) 

CALL  DPTPR(2) 

GOTO  519 

C  . TEST  NOT  SATISFIED.  PRDCEED  FDR  ANOTHER  ITERATION . 

401  CONTINUE 

CDMPARE  CHANGES  IN  THE  OBJECTIVE  FUNCTION  BETWEEN  ITERATIONS 
TD  AVOID  UNNESSARY  COMPUTATIONS  WHEN  NDT  CONVERGE 

EPS  -  0.00! 

AFD1  *  ABS(FDEV-FDLD) 

AFD2  =  ABS(FDEV-FNEW) 

1F(AFD1. GT.EPS.DR.AFD2.GT.EPS)  GOTD  41 1 
1F(ABS(FDEV/FMIN).LE.0.1)  GOTD  511 
41 1  FDLD  *  FNEW 
FNEW  -  FDEV 

CHECK  THE  NUMBER  DF  ITERATIONS  AGAINST  THE  MAXIMUM  NUMBER 
1F(N1T-MAXIT)402.402.403 

.....  MAXIMUM  ALLOWABLE  ND.  OF  ITERATION  HAS  BEEN  EXCEEDED  _ 

403  CALL  DPTPR(l) 

WRITE(6.1001)NIT 
DD  704  1=1.NX 

X(I)«XX(UL) 

704  CONTINUE 
I  F(NY)707 .7(17.706 

706  DO  705  1=*I,NY 

705  Y(l)«YY(l.JL) 

707  CONTINUE 
F-FF(JL) 

CALL  DPTPR(3) 

CALL  OPTPR(2) 

GOTO  555 

402  CONTINUE 

.  CDMPUTE  CENTRDID  OF  PDINTS  IN  S1MPLEX.EXCLUDING  ONE 

WITH  H'GHEST  FUNCTION  VALUE . 
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DO  304  1=1. NX 

XC(!)=0.0 

DO  305  J-l.KMAX 

305  XC(1)=XQ1)+XX(IJ) 

304  XC(1)=(XQ!)-XX(U0)V(KMAX-1) 

.  COMPUTE  NEW  TRIAL  POINT  DY  REFLECTING  POINT  OF  HIGHEST 

FUNCTION  VALUE  THROUGH  CENTROID  OF  REMAINING  POINTS 
DO  306  1=1, NX 

X(1)=XC(1)-ALP11A*(XX(UG)-XC(I)) 

...»  TEST  EACH  EXPLICIT  VARIABLE  TO  SEE  IF  IT  VIOLATES  BOUND. 

IF  SO.SET  INSIDE  BOUND  BY  A  SMALL  AMOUNT .™ 
1F(XU(1)-X(I»30?.307.3(M 
30?  X(1)-XU(i)  GAMMA*(XU(I)-XC(1)) 

308  IF(X(1)-XL(1))309,309.306 

309  X(1)=XL(I)+GAMMA*(XC(1}-XL(I)) 

306  CONTINUE 

,™  TEST  TO  SEE  IF  IMPLICIT  VARIABLES  VIOLATE  BOUNDS™. 

CALL  1  MTST(  N 1  ,N  M AX  1 ,1 FL  AG.IND) 

1F(1FLAG)504,503,504 

505  CONTINUE 

.....  TEST  TO  SEE  IF  TRIAL  POINT  PRODUCES  HIGHEST  FUNCTION 
VALUE  IN  NEW  SIMPLEX  ..... 

DO  312  J-l.KMAX 
IF(J-K3)3 16,312,3 16 
316  IF(FF(1)-F)312JI2,313 

312  CONTINUE 

.....  BECAUSE  TRIAL  POINT  PRODUCES  HIGHEST  FUNCTION  VALUE, MOVE 

TO  FRACTIONAL  DISTANCE  BETA  FROM  CENTROID  OF  OTHER  POINTS  .... 
DO  314  1-1, NX 

314  X(1)-XC(I)+BETA*(X(1)*XC<1)) 

.  INSERT  TRIAL  POINT  INTO  NEW  SIMPLEX  ..... 

313  CONTINUE 

CALL  1MTST(NI  JVMAX  I,1FLAC,IND) 

IF(IFLAC)506.507,506 
50?  CONTINUE 
DO  315 1-1  .NX 

315  XX(UG)=X(!) 

1F(NY)320,320.321 

321  CONTINUE 
DO  318  l-l.NY 
318  YY(1,JG)-Y(I) 

320  CONTINUE 
FF(JG)-F 

.  DO  INTERMEDIATE  PRINTING  IF  REQUIRED  ..... 

1F(N1T-1PRT)3 17,5 10,5 10 

510  CALL  OPTRR(4) 

CALL  OPTPR(3) 

IPRT-1PRT+NFREQ 
GOTO  317 

.™  PRINT  ERROR  MESSAGE  AFTER  CONSTRAINT  VIOLATION  IN  IMTST  ™. 

500  WR1TE(6.1002) 

GOTO  555 
502  CALL  FA1L(1) 

GOTO  555 
504  CALL  FA1L(2) 

GOTO  555 

506  CALL  FA1L<3) 

GOTO  555 

511  WRTTE(6.1004)  NIT 
WRITE(6,1001)  NIT 
CALLOPTPR(3) 

CALL  OPTPR(2) 


PRINT  TEMPERATURE  HISTORY  FOR  CURRENT  TRAY  DESIGN 

519  WRITE(6,1005) 

TD-T1 
T1  =  TR 
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TMG  -  THEATI 
DO  527  K=  1.3 

C  ALL  H  E AT*H J*  K  ),FI  1(K  ),T0.TI 1  ..TMG.25 1  .OEL.TM  I.TTI) 

TG-TTH25I) 

CALL  C00L(O(K).C(K),TL,TG,TW,TM2,T2) 

521  CALL  COOLA(CJ(K).C*K),TL,TG,TW,TM3.T3.Z) 

DO  523  Kl  =  1 1,251,10 
523  WRrrE(6,1006)TMl{Kl),m(KI) 

DO  525  K2  -  1 ,7 
T1ME2*TM1(25I)  +  TM2(K2) 

525  WR1TE(6,I006)  TIME2,  T20C2) 

DO  527  K?  -  1 ,7 

TIME3  =  TM  1(251)  +  TM2(7)  +  TM3(K3) 

WRITE(6,I006)  T1ME3,  T3(K3) 

527  CONTINUE 
C 

C  CALCULATE  &  PRINT  THE  OIMENSIONS  OF  THE  TRAY 
C 

DO  529 1  *1.3 
XLUI.3)  -  X(2) 

529  CONTINUE 

XLL(3.3)-X(2)-2.*X(1) 

XLL(1,1)*2.  *  XLL(l.l) 

XLL*I,2)-2.*XLL(I,2) 

XLL(2,1)*2.  •  XLL*2J) 

YDu  *  •  ■ 

ZDO  *  X(2) 

VDO  *  XDO  *  YDO  *  ZDO 
WRITE**,*)’  * 

WRITE**,*)  ’ENTREE  COMPARTMENT  01MENS10N\(XLL(I,T), 1-1.3) 
WRITE**,*)  ’STARCH  COMPARTMENT  DIMENSION’, (XLU2.D.T-U) 
WRITE**.*)  ’DESSERT  COMPARTMENT  OlMENSI0N',(XDO,YDO,ZDO) 
WRITE**,*)  ’DIMENSION  OF  INNER  DESSERT  TRAY,(XLL(3.1),I-U) 
WRITE**,*)  ’YOLUME  OF  (OUTER)  OESSERT  COMPARTMENT, YDO 
555  STOP 

C  .....  FORMAT  STATEMENTS . 

1000  FORMAT*/1  ’, ’PROCEDURE  HAS  CONVERGED  IN’,14,’  ITERATIONS.’/ 

*’  THE  SOLUTION  IS  AS  FOLLOWS:’) 

1001  FORMAT*1  ’//PROCEDURE  HAS  NOT  CONVERGED  IN’.M,’  ITERATIONS.’/ 

*’  ’.THE  CURRENT  TRIAL  SOLUTION  ANO  SIMPLEX  IS  AS  FOLLC  WS:*) 

1002  FORMAT*/  ’,’BASE  SET  OF  VARIABLES  VIOLATES  SOME  CONSTRAINT.’) 

1 00?  FORMAT*/  ’.’ITERATION  O’) 

1004  FORMAT*/  ',’NOT  MUCH  IMPROVEMENT  COULO  BE  ACHIEYEO  AFTER  ’, 
*.14, ’th  ITERATION.’) 

1005  FORMAT*//  ’.SX.’ATTIME  -  min.’JX/TEMP.  -  DEG.  C’) 

1006  FORMAT/  ’.5X.F(5.3,5X,F15.3) 

3001  FORMAT*6X.7E15.5) 

END 

C 

C  Read  input  data  lor  main  optimization  program 
SUBROUTINE  OPTRO 

CHARACTER  NnTL*47,NAMEF*5,NAMEX(l2)*5,NAMEY(30)*5,NAMEP(l  )*5, 
*OLD*2 

COMMON/OPT/  F.X(12),Y(30),P*1) 

COMMON/STORE/ NX, NY, NP,XL(I2).XU(I2),YL(30).YU(30), 

*XC(12),XX(I2.24),YY(30,24),FF(24),JG,NIT, 

*  ALPH  A,  BETA,  K  MAX,  MAX  IT.FR  .FA  .FDEV.FM  1  N.NFREQ 
COMMON/ASTORE/  NTITL,NAMEF,NAMEX.NAMEY,NAMEP,OLD 

C  .  REAO  BASIC  DATA . 

OPEN(5,FILE-’OPT2.DAT, STATUS-OLD1) 

READ(5, 1 000)NTTTL.OLD 
REAO(5.100I)NX,NY.NP,MAXIT,NFREQ 
DO  I00I-I.NX 
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100READ(5.I<»2)NAM£X(1).XLU),XU<1).X<1) 
1F(NY)1 12,112,1 13 

113  DO  101 1=1J(Y 

101  READ(5,1002)NAMEY(1).YL()).YO(1) 

112  CONTINUE 

1F(NP)1 1 4,114,1 15 
1 15  DO  U)2 1=1. NP 

102  READ{5, 10Q2)N  A  Mill  J( l).P(l) 

1 14  CONTINUE 
READ(5,fUfl2)NAML.F.FR.I:A 
CLOSER) 

RETURN 

C  .  FORMAT  STATEMENTS . 

1000FORMAKA47,A2) 

1001  FORMAT(7I5) 

1002  FOR  MAT{A5,3F  1 0.4) 

END 


Print  intermediate  results  and  optimal  design  specifications 

SUBROUTINE  OPTPR(IARG) 

C - — — - - - 

DIMENSION  N1NT<50) 

CHARACTER  NnTL*47,NAMEF*5.NAMEX(12)*5.NAMEY<3D)*5.NAM£P(l)*5, 
*OLD*2 

COMMOWOPT/  F.X(12),Y(30),P(  I) 

COMMON/STORE/  N  X,NY.NP,XL<  1 2),XU(  1 2),YL(30),YU(30), 

*XC(12).XX{1 2,24),  YY(30,24).FF{24)rJG, NIT, 

*  ALPH  A  .BETA  .KMAX.M  AXIT.FR.FA.FDEV.FMIN  NFRfiQ 
COMMON/ASTOR  E/  N  T1TL.N  A  MEF,N  A  M  EX  .N  A-M  E  Y  IN  A  MEP.OLD 
DATA  NINT/l,2,3,4,5.6.7,li,9,10.l1.l2, 13, 14, 15, 16.17,18.19.20, 21. 
*22.23.24252627.2R,29,30,31.32,33,34, 35,36, 37, 38, 39, 40,41,42, 
*43,44,45.46,47.48,49.50/ 

GOTO  (1.2,3,4,5.6).IARG 

1  CONTINUE 

C  .  PRINT  TITLE . 

WRlTE(6,2flOO)NTITL 

RETURN 

2  CONTINUE 

C  ...-  PRINT  TRIAL  SOLUTION  AND  LIMITS . 

WRITE(6.2002) 

WR1TE(6,20CD) 

DO  200  1-1 .NX 

200  W  RITE(*,2004)N  AMLX(1),XU  I  )J<U(  l).X(l) 

1F(NY)201501,202 

202  WR1TE<6.2005) 

WR]TE<6,2«0) 

DO  203  1=1, NY 

203  WRITE! 6.2004)NAMEY(I).YLU).YU(I),Y(I) 

201  CONTINUE 
1F(NP)204,204205 

205  WRITE(62011) 

WR1TE(6,20I2) 

DO  206  1=1NP 

206  WRITE(6,2004)NAMEP(I).P(1) 

204  CONTINUE 
WRITE(6,2010) 

WRITE(6.2006) 

WRITE(6.2004)NAMEF.F,FR,FA 

RETURN 

3  CONTINUE 

C  .....  PRINT  VALUES  OF  VARIABLES  AT  VERTICES  OF  CURRENT  SIMPLEX..™ 
KMAX1=KMAX+1 
WRITE(6,2007)KMAXI 
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C  «...  PRINTING  DONE  IN  GROUPS  OF  SEVEN  ..... 

KK=I 

KKK=7 

400  CONTINUE 
KKKK=KKK 

1F(KKK.GRKMAX1)KKK=KMAXI 
1F(KKK.EQ.KMAXI)KKKK=KKK-I 
WR1TC(6.2008XN1  NT(I)J=KK,KKK) 

DO  301  M.NX 
XX(I,KMAXI)*XC(I) 

301  WRITE(6,2004)NAMEX(1),<XX(I,K),K=KK,KKK) 

'  IF(NY)303,303,304 

304  DO  305  1=1,  NY 

305  WRnm2(XM)NAMI:Y(l).(YY(l,K).K-KK,KKKK) 

303  CONTINUE 

WR1TE(6,2U04)NAMI:1:,(IT:(K),K=KK,KKKK) 

IF(  KK  K ,EQ. K MAX  1  )GOTO  401 

KK=KK+7 

KKK=KKK+7 

GOTO  400 

401  CONTINUE 
RETURN 

4  CONTINUE 

C  .....  PRINT  RESULTS  AT  CURRENT  ITERATION  — 

WRITER.*)  ’  * 

WRrrE(6.2009)NITJG4IDEV1FM!N 
RETURN 
3  CONTINUE 
RETURN 
6  CONTINUE 
RETURN 

C .  FORMAT  STATEMENTS . 

2000  FORMATC  \A47) 

2002  FORMATC  ’/INDEPENDENT  VARIABLES’) 

2003  FORMATC  \IX,'NAME\4X/L0WER  BOUND’, 4X /UPPER  BOUND’,  I  OX, 
•’VALUE’/) 

2004  FORMATC  \A5,IP7EI5.5) 

2005  FORMATC  ’/DEPENDENT  VARIABLES') 

2006  FORMATC  ’.IX/NAME'.tOX/VAUlE.HX/REL  DEVJiX/ABS  DEV/) 

i 007  FORMATC  ’/VARIABLES  IN  SIMPLEX  (CENTROID  IS  VERTEX\!3,T) 

200R  FORMATC  ’/VERTEX’.1 14,7115) 

2009  FORMATC  ’/ITERATION’, 14/  ENTERING  VERTEX’, 13/  FDEV  =\  I  PEI  2.4, 

*  FMIN  =’,1PEI2.4) 

2010  FORMATC  ’/OBJECTIVE  FUNCTION’) 

2011  FORMATC  ’/PARAMETERS’) 

2012  FORMATC  ’.IX.’NAME.KIX/VAIUE’/) 

END 

C 

C  Test  for  violation  of  implicit  constraints  in  main  program 
SUBROUTINE  IMTST(N.NMAX.IFLAG.IND) 

CHARACTER  NnTL*47,NAMEF*5,NAMEX(l2)*5,NAMEY(30)*5,NAMEP(l)*5, 
*OLD*2 

COMMON/OPT/  F.X(I2),Y(30),P(I) 

COMMON/STORE/  NX.NY.NP,XL(12),XU(I2),YM30),YU(30), 
*XC(12),XX(12,24),YY(30,24),FF(24)JG,NIT, 

•ALPHA, BE’i’A.KMAX, MAX  IT,FR,FA,FDEV,FMIN,NFR£Q 
COMMON/ASTORE/  NTlTL.NAMEF,NAMEX,NAMEY.NAMEP,OLD  ’ 
1FLAG=0 
N=I 

C  .  EVALUATE  OBJECTIVE  FUNCTION  AND  DEPENDENT  VARIABLES  ..... 

108  CALL  MODEM!  ND) 

IF(NY)300, 300,301 

300  RETURN 

301  CONTINUE 

C .  TEST  TO  SEE  IF  ANY  IMPLICIT  CONSTRAINT  HAS  BEEN  VIOLATED  „. 

DO  103  1=1, NY 
IP(Y(I)-YL(I))I01.102.102 
102  1F(YU(I)-Y(I))101. 103,103 
f  0B  CONTINUE 


115 


C  BECAUSE  TRIAL  1*01  NT  VIOLATES  IMPLICIT  CONSTRAINTS.  MOVE,  TO 

C  FRACTIONAL  DISTANCE  BETA  FROM  CENTROID  DF  OTHER  POINTS  ..... 

101  DD  104 1*1.  NX 
104  X(I)*=XC0)+HETA*(X(I)-XC(1)) 

IF(N-NMAX)  106.107,107 
I06N=N+I 
GOTO  108 

C  TRIAL  POINT  DID  NOT  SATISFY  IMPLICIT  CONSTRAINT  AFTER  NMAX 

C  MOVES  TOWARD  CENTROID  OF  OTHER  POINTS 

107  IFLAG-1 
RETURN 
END 
C 

C  Prim  error  message*  for  main  program 

C  SUBROUTINE  FA1L(NARG) 

WR1TE(6,1000)NARG 
CALL  OPTPR(2) 

CALL  OFTPR(3) 

RETURN 

1000  FORMATf  ’.'ERROR  ENCOUNTERED  IN  DPT1MM7  ’,TYPE\I3, 

*'  CONSTRAINT  VIOLATED) 

END 

C 

C  Generate  random  numbers  for  optimization  iterations 

C 

C - 

SUBROUTINE  GGUBS  (DSEED.R) 

REAL  R 

DOUBLE  PRECISION  DSEED 
C  S  PECIFICATIONS  FOR  LOCAL  VARIABLES 

INTEGER  I 

DOUBLE  PRECISION  D2P3 1  M.D2P3 1 
C  D2P3IM=(2**3I)-I 

C  D2P31  *(2**3l)(OR  AN  ADJUSTED  VALUE) 

DATA  D2P3IM/2147483647.D0/ 

DATA  D2P3 1/2 147483648.00/ 

C  FIRST  EXECUTABLE  STATEMENT 

DSEED  *  DMOD( 1 68l)7.D0*DSEED.D2P3 !M ) 

R  =■  DSEED  /  D2P3I 
RETURN 
END 
C 

C  Estimate  thermal  processing  lethality  and  time-temperature  history 
C  for  each  of  the  companincnts  in  the  tray 

C  - - - - 

SUBROUTINE  MODEL(IND) 

CHAR  ACTER*  1 5  ME  ALSO) 

DIMENSION  XU3),X(3).!THEAT(3).BIf?).F)MM(3) 

CD  MMON/OPT/ OBJ.XK  1 2).Y(30).PAR(  1 ) 

COMMON/COND  l/FLANGE-G.I  lEAD.Vf?).XLL(33) 

COMMON/COND/  XKINS,TCDOL,TREF(3)1XX(3,3).ZZO),FP(3) 

*.XK(3)tALPHA(3  ),HTA 

COMMON/FANDJ/C(3).aO),FH(3),HJ(3).THEATl,TI.TR,TC 
COMMON/TH1STORY/  TRE 
COMMON/TEMPT/  T(300).TM<300) 

C  .....  INPUT  DATA _ 

C  Xl(l);  INSULATION  THICKNESS  OF  DESSERT  TRAY 
C  Xl(2);  HEIGHT  OF  THE  WHOLE  TRAY 
C  Xl(3);  LENGTH  OF  THE  ENTREE  TR  AY 
C  Gi  G  BETWEEN  TRAYS 

C  V (I);  VOLUME  OF  EACH  TRAY  (INNER  VOLUME) 

C  XLL(U);  DIM  ENS1DN  OFTTH  TRAY  (INNER) 

C 

C  CONSTRAINTS  FOR  TRAY  DESIGN 

C  LENGTH:  <=  II  INCHES 

C  DEPTH:  <=  1.1811  INCHES  (3  CM) 

C  INSULATION  THICKNESS:  <*  0.6  CM 
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WIDTH  Ol-  SEALING  liIXili:  <1.6  CM 
IliilGl IT  or  llliADSI'ACIi:  <1.6  CM 


C 

c 
c 

IF(1ND.EQ.1.0R.IND.EQ.3)  00  TO  ID 
GO  TO  20 

10  OPEN<UNIT=7,FILE=TRA  YDESI I  .DAT.ST  ATUS='OLD’) 

READ(7,1)G 

RE  ADO. 1)  HTA.TCOOL.XK1NS 
READ(7. 1 )  TR.TI.TC 
DO  II  l-U 
READ(7,2)  MEALS(I) 

READ(7,I)  V(I),XX(1, 1 ),XX(1 ,2),XXfl,3) 

READ(7,3)  XK(I),ALPIIA(I) 

II  READ<7.1)2Z(I).TREF(I).FP(I> 

CLOSE  (UNIT-7) 

WRITER)  (MEAL$(11),1I=1,3) 

C  ..„  CALCULTE  THE  D1MESION  OF  THE  TRAYS . 

IF(TREF(3).EQ.  100.0)  THEN 
FLANGE  -  0.006 
HEAD  «  0.006 
ELSE 

FLANGE  -0.0 
HEAD  -  0.0 
ENDIF 

20DO  121-1.3 
XLL0.3)  -  (Xl(2)  -  HEADJ/2. 

1 2  CONTINUE 

XLU3.3)  -  (Xl(2)  -  HEAD  -  2.*Xl(l))/2. 

XLUU)-XI(3)/2. 

XLL(!,2)  -  V(l  V(4.*XLL(1.1)*XLL<1,3))/ 2. 

CHECK  -0.3  •XLUI.I) 

IF(XLL(U).GECHECK)  THEN 

GOTO  14 

ELSE 

XLL(I,1)  -  SQRT(V(1)/(8.*0.3*XLL(U))) 

XLL(l,2).f  0.3  *  XLL(I.I) 

ENDIF 

14  AREA2  »  V(2)/  (2.*XLL(2,3)) 

AREA3  -  V(3)  /  (2,*XLL(3J)) 

A  -  4.,(XLL(1,l)-0.004-FLANGE) 

B  -  -4.*FLANGE*(XLL(1.I)-0.004-FLANGE)-AREA2-AR£A3 
Cl  -  FLANGE  *  AREA2 

XLL(2.2) «  (-1.*B  +  SQRT(B*B  -  4.*A*CI )) /  (2.‘A) 

XLL(2, 1)  -  (V(2)/(4.»XLU2.2)*XLL(2J)))/2. 

XLU3.2)  -  XIMU)  -  FLANGE 

XLU3.1)  =  XLUJ.l)  -  XLU2.I)  -  0.004  -  FLANGE 

Y(I)-4.*XI(2)*(XLL(3,I)+FLANGE)*(XLL(3,2)+ FLANGE) 

1F(XLL(2,2).LE.O,O.ORJ(LL(33).LE.O.O)Y(1)-IOOO. 

1F(Y(1).LT.0.0)  RETURN 

Y(2)  =  xaw)*2. 

Y(3)  -  XLL(3,3)*2.  +  HEAD 

C .  CALCULATE  PROCESSING  TIME  FOR  EACH  MEAL  ..... 

T0-TI 
TI-TR 
TW-TC 
DO  200 1  =  1, 2 
TK<=XK(1) 

AL-ALPHA(l) 

Z-ZZ(I) 

TRE-TREF(I) 

DO  IOOJ-1.3 
XL(J)«XLL(IJ) 

X(J)=XX(IJ)  '  ‘ 

C  WRITE(6,»)  XLO) 

100  CONTINUE 
HT-HTA 

CALL  E1GEN(AL1XL,TK,HT,BI,FH(I).HJ(I)) 

0(1)  -1.4 
Cd)^FH(I) 

CALL  PROCESS(TO.T1  ,TW.HJfl).FH(l).a(I),C(l).Z.-l..-l .,FP(1),THEAT1.FVALUE) 

tf*meAn£E3a>)soTToaa 

TT  HgftT  THEflT  X 
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FIMM(I)-FVALUE 

200  CONTINUE 

IF(TTH EAT( D.GT.TI  I ll:AT(2))  Tl  IliN 
Tl  IEAT1-TTI  II:  AT(  I ) 

FIMAX-FIMM(I) 

IMAX-I 

ELSE 

THEAT1  -TTHEAT(2) 

FIMAX-FIMM(2) 

IMAX-2 

ENDIF 

'Y(4)-THEATI 

201  DO  2061-1.3 
IFO.EQ.IMAX)  GOTO  205 
TK-XK(I) 

AL-ALPHA(l) 

Z=ZZ(1) 

TRE«TREF(1) 

DO  204  J-U 

XL(J)»XLL(U) 

x(j)=xx(U) 

204  CONTINUE 
IF(I.NE.3)  THEN 
HT  -  HTA 
ELSE 

HT-IV(1./HTA+XI(I)/XK1NS) 

ENDIF 

ESTIMATE  THE  STERILIZING  VALUES  FOR  ALL  THE  FOODS  BASED  ON  THE 
PROCESSING  TIME  THEAT1  FOR  THE  FOOD  WHICH  IS  LEAST  OVER- PROCESSED. 

CALL  E1GEN(ALXL.TK,HT,BI,FH(I),HJ(I)) 

CJ(I)  -  1.4 
C(l)  =  FH(I) 

CALL  PROCESS(TOJI,TW.HJ(I).FH(I),a(l)1Ca)Z‘I.,tHBATlt-l.,-l RVALUE) 

Y(l+4)  =  FVALUE 

Y(8)  ■  T(25l) 

GO  TO  206 

205  Y(l+4)  -  FIMAX 

206  CONTINUE 

OBJ-ABS(Y(5)-FP(l))+ABS(Y<fit-FP(2)J+ABS(Y<7j-FP(3)) 

RETURN 

FORMAT  STATEMENTS . 

1  FORMAT(4F10.5> 

2  FORMAT(A10) 

3  FORMAT(FI0.4.E10,4) 

5  FORMATC  MEAL  NAMES  ARE  ’.3(A7J2X)) 

END 

Calculate  f  and  j  values  fofench  meal  in  the  compartment  tray 

SUBROUTINE  EIGENIALXL.TK.HTJl.FHl.HJI) 

DIMENSION  BI(3).XU3),HETAI<?J,F1(3)<XJI(3) 

COMM0N/THISTOR  Y/  TRE 
FNF(X,B11)=X*TAN(XJ-BII 
DO  12401-1,3 
BI(I)=HT*XL(IVTK 
BETA  1(1) -0.0 
STP-3. 141 592654 
STP1 -0.001 

STP2-3. 14 1 592654/2.-0.001 
XCR1T-0.00001 
FCRrr-o.oooi 
IF(BI(I).EQ.0.0)  THEN 
BETAl(l)-0.0 
GOTO  1225 
ELSE 

GOTO  1200 
ENDIF 

1200  XI-STPI 
Xi=STPi 
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J COUNT  -  I 
1210  F1«FNF(XI,BKI)) 

F2=FNF(X2,I1I(I» 

1215  FMULT=FI*F2 

I  F(FM  ULT.GT.O.O)  GOTO  1225 

C .  BISECTIONAL  METHOD  FOR  ESTIMATION  OF  ROOTS . 

1000  XERR-ABS(XI  X2)/2.0 
X>(XI+X2)/2. 

F3-FNF(X3,Bl(I)) 

1F(1.GT.200)  GOTO  1220 

IF(XERR.LT.XCRIT)  GOTO  1220 

IF(ABS(F3).LT.FCRIT)  GOTO  1220 

1F(F3*FI.LE0.0)  then 

X2-X3 

F2-F3 

ELSE 

X1-X3 

FI-F3 

ENDIF 

ICOUNT  =  lCOUNT  +  I 
1F(1COUNT.GT.200)  WRITE(6,l)Bld) 

GOTO  1210 
1220BETA10) «  X3 
GOTO  1230 

1225  (COUNT  -  1COUNT  +  1 

JF(1COUNT.GT.200)  WRITE(6.1)  BI(1) 

XI-STP+STP1 
X2  -  STP  +  STP2 
FI  -  FNF(X1,B1(1)) 

F2  -  FNF(X2,BI(I)) 

GOTO  1215 

1230 FI(I)  -  LOG(IO.O)  *XL(I)*XL(I)  /  (BETAl(l)*BETAia)*AL)/60. 

XJI(I)  -2.0  *  S1N(BETA1(1))/ (BETA  1(1)  +SIN(BETAl(l))*COS(BETAI(l))) 

1240  CONTINUE 
F-0.0 
HJI-  1.0 

DO  126011-  1,3 
F-F+  l.0/FI(ll) 

HJI  -  HJI  *  XJl(ll) 

1260  CONTINUE 
FH1-1.0/F 
1280  RETURN 

I  FORMAT?  DONT  HAVE  ROOT  OF  TRANSCENDENTAL  EQUA/.F12.4) 

END 

C 

C  ESTIMATE  PROPER  HEAT  PROCESSES  OF  RETORTABLE  PLASTIC  PACKAGE 
C  FOR  MULTIPLE  FOODS.  DEVELOPED  MAINLY  BASED  ON  THE  PROGRAMS  BY 
C  DR.  K.  HAYAKAWA, 

C  ADVANCES  IN  FOOD  RESEARCH.  VOL.  XX.  PP.  75-141.  1977. 

C  THIS  SUBROUTINE  SOLVES  2  TYPES  OF  PROBLEMS.  THEY  INCLUDE: 

C  TYPE  B:  GIVEN  Fp,  Solve  for  lb  (iherma!  processing  lime) 

C  TYPE  A:  GIVEN  tb,  Calculate  the  equivalent  Fp 

C 

C  •*** . *********  NOMENCLATURE  . . 

C  C  Slope  index  of  cooling  curve 
C  CJ  Intercept  coefficient ofcoolingcurve 
C  FH  Slope  index  of  heating  curve 

C  HJ  Intercept  coefficient  of  healing  curve 
C  FP1  Target  sterilizing  value 

C  FPP  Estimated  sterilizing  val  ue  for  given  TG  or  TMG 
C  TO  Initial  temperature  of  food  (Deg.  C.) 

C  T1  Holding  temperature  heating  medium  (Deg.  C.) 

C  TANS  Length  of  heating  phase  to  be  estimated,  A  thermal  process  with  TANS 
C  minutes  of  processing  time  produces  a  target  sterilizing  value  FPI 

C  TG  Food  temperature  at  end  of  heating  phase  of  thermal  process. 

C  When  a  problem  is  for  estimating  TANS  or  when  an  actual  TG  value 

C  is  given,  Set  TG  -•  1.0. 

C  TMG  Length  of  heating  phase. 

C  When  a  problem  is  for  estimating  TANS  or  when  an  actual  TG  value 
C  is  given.  Set  TMG-  -1.0 

C  TW  Cooling  medium  temperature  (Deg.  C.) 
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C  — 
C  - 


*“r*7  •■■■**•  ****■■  ?***•*  ***■■■*■' 


SUBROUTINE  PROCESS(TO,TJ  ,TW,HJ  ,FH,C1.C.Z,TG .TMG.FP1  .TANS, FPP) 

1  •  “  ^  w  •  —  —  —  —  Ml  —  —  —  — «  —  —  MM* —  —  — «  —  —  —  —  —  tf <— I ■•■«*■«■*■■■  *» W  ** WWW 


CO  M  MON/COM  A/ABCC7) 

COMMON/0OMU/H(?) 

COMMOVTHISTORY/  TRE 

COMMON/TEMPT/  T(300),TM(300) 

ABC(1)~I.Q 

ABC(2)~0.8302239 

ABC(3)~0.4688488 

ABC(4)-0.0 

ABC(5W).46884«fl 

A  BC(6)-0.8302239 

ABC(7)-1.0 

H(  0=0.0476190 

H(2)-0.2768260 

H(3)«0.43 17454 

H<4)-0.4876190 

H(5)=0.43 17454 

H(6)«0.2768260 

H(7)-0, 0476190 

DO  1,41 1-1,300 

TdH). 

141  TM(J)-0. 

FPP-0. 


YFP-0. 
YFP1  -0. 


YFP2  -,0. 

TANS-0. 

1F(FP1.LE0.)  G0TO14<f. 


This  is  •■■Type  B  Problem. 

li  solves  for  theptqcessing  time  TANS  to  achieve  target  Fp. 

TMG1.-FP1 
FPP  -  0. 

TMO2  -40.  »FP1 
142TMG-TMG1 

CALL  H  EAT(HJ.FI  LT0.T1  ,•  1 .0,TMG,251.D5L.TMiT) 

CALL  S1MP<T.DEU251^.FPH1)' 

CALL  FCOL(FPC.G)  ,C  ,T(25 1  ),TW.Z) 

FPP1  -FPH1  +  FPC 
YFP1-FP1-FPP1 
143TMG-TMG2, 

CALL  H  EAT(H  J.FH.TO.Tl 1 .0.TMG431  J3EL.TM/I7 
CALL  SlMP(T,DEL,25 1  .Z.FPH2) 

CALL  FCOL(FPC,CJ,C,T(251),TW,Z) 

FPP2  *  FPH2  +.FPC 
YFP2  ■  FP1 !-  FPP2 
TMG  -.(TMG1+TMG2),/  2.0* 

CALL  HEAT(HJ.FH,T0,T1,- 1 .0.TMG.251  .DELJMiT) 
CALLSlMPa,DEL251,Z,FPH) 

CALL  FCOL(FPCCJ,C ,T(25.1  ),VWZy , 

FPP  -  FPH  +  FPC 
YFP-FP1  •  FPP 

lF((YFPl*yFP).GT.0..AND.(YFP2*YFPTOm)  GOTO  148r 
IF(ABS(FPP-FP1).LE0.1)  GOTO  144  ’ 

YCHECK  -  YFP1  *  YFP 
lF(YCHECK.LE.O.O)  THEN 
TMG2-TMG 
GO  TO  143 
ELSE 

TMG1 -TMG 
GOTO  142 
ENDJF 

144  TANS -TMG 
GOTO  150 
C 

C  This  is  a  type  A  problem.: 

C  Given  heating  time, solve  for.octB.il  Fp.-j 
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146  TG  -  Tl  -  HJ  *(T1  -TOj  *  1  ().**( -TMG /Fll) 

CALL  HEAT(HJ,FH,T<),Tl,TG,.l  .0,251, DEL.TM.T) 

CALL  S I M  P(T,0£L,25 1  ,Z,FPH) 

CALL  FCOL(FPC.CJ1C,T(2.‘il),T*V.Z) 

FPP  =  FPH  +  FPC 
GOTO  150 

148  WR1TE(6,I49) 

149  FORMATf  '/PROCESSING  TIME  IS  LARGER  THAN  40  Fp.7, 

*'  ’/Please  modify  the  program!1) 

150  RETURN 
END 

C  * 

C  CalcuaJte  food  temperatures  on  a  heating  curve 
C  The  equations  were  updated  (from  the  1977  Reference) 

C  with  reference  to  Lekwauwa,  A.  N,  and  Hay  aka  wa,  K„  1986. 

C  J.  Food  Sci.  51(4):  1042-1049, 1056. 

C 

C  NOMENCLATURE  *************************** 

C  DEL  Time  increment  for  heating  phase 

C  NTRM  Number  of  food  temperatures  to  be  estimated.  2  <  NTRM  <-  300 
C  T  Food  temperature  estimated  (Deg.  C.) 

C  TM  Heating  times  at  which  food  temperatures  reach  to  Ts 

C *********************************************************************** 

c - - 

SUBROUTINE  HEAT(HJ^H.T0,T1  ,TG,TMG,NTRM45EL,TM,T) 

COMMON/TH1STORY/  TRE 
DIMENSION  T(300),TM(300) 

AN(A,AF.AJ)  -  (A/AF -  ALOGKKAJ)) /(A/AF) 

BA(AJAAF3N)  -  A*  (A/AF-  ALOGI0(AJ))**(BN) 
TA(TMA,BAA,AAN)-Tl-(T1-TO)*EXP(-2.3Q259*EXP(ALOG( 

*TMA/BAA)*(UAAN))) 

TIA<BAA,TP,AAN)-BAA*((ALOG10((TI-T0)/(Tl-TP)))**AAN) 

BB(TLB)-(  I  /TLB)* (AT AN((ALOG  IO(TI-TO))/(ALOG1 0(HJ*  (T1  -T0)K1LB/FH)) 
*-0.785398) 

TB(B  B  B,TMB)=T1  (T1 -T0)**(1 7TAN(BB  B*TM  B+0.785398)) 

T1B(BBB,TP)«(  1 7BBB)*(ATAN((ALOC  10(T1  -T0))/(ALOG1 0(Tl-TP)))-0.785398) 

BCCTLCMiyrLC)*ACOS((ALOGHKIlJ*(Tl-TO))-TLC/FHV(ALOG10(Tl-TO))) 

TC(BCC.TMC)=T1-(TM1»)**(C0S(BCC*TMC)) 

TIC(BCC,TPK  1  ./BCC)*ACOS((  ALOG 1 0(T1-TP))AA  LOG  10(T1  -TO))) 

TD(TMD)=T  I  -HJ*(T1  -T0)*EXP(-130259*(TM  D/FH)) 

TLD(TP)»  FH  *  ALOG  1 0(HJ*(T1  -T0)/(T1  -TP)) 

00  901-1,300 
T(l)-0.0 
90TM(l)-0.0 
NXX-NTRM-1 
1F(HJ1T.0.001)GO  TO  1 
IF(HJ.LT.0.40)GOTO  2 
1F(HJ.LE.0.999999)GO  TO  3 
1F(HJ.LE.  1 .0000 1  )GO  TO  7 
1F(HJ,GT.6500B)GO  TO  4 
GO  TO  6 

1  WR1TE(*,5) 

5  FORMAT! IX, TM  &  T  ESTIMATED  BY  SUBROUTINE  HEAT  ARE  QUESTIONABLE 
♦SINCE  JH<0.00T) 

2  TL  -  FH  *  (0.3913  -  0.3737  *  ALOGKXHJ)) 

RN  -  AN(TL,FH.HJ) 

B  =  BA  (H  J.TL.FH.RN ) 

IF(TGLT.O.O)GO  TO  8 
TEMPL-TD(TL) 

IF(TG.LE.TEMPL)GO  TO  9 
TMH-T10(TG) 

TH-TG 
GOTO  10 

9  TMH-TIA(B.TG.RN) 

TH-TG 
GO  TO  10 

8  lF(TMGXT.TL)GOTO  1 1 
TH»TD(TMG) 

TMH-TMG 
GOTO  10 

11  TH*T/\(TMSAI^) 
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TMH-TMG 

10T(1)=T0 

TM(I)*=0. 

DEL-TMH/NXX 
T(NTRM)=TH 
TM(NTRM)=TMH 
DO  100  1-2.NXX 
TMUDELM-1) 

TM(1)=TMJ 

IF(TMl.GETL)GOTO  102 
T(1)-TA(TM1,B,RN) 

GOTO  100 
102T(1)«=TD(TMI) 

100  CONTINUE 
GO  TO  60 

3  TL  -  0.9*FH*(1.-HJ) 

B  -  BB(TL) 

IF(TG.LT.0,0)GO  TO  19 
TEMPL-TD(TL) 

IF(TG.LE.TEMPL)GO  TO  20 
TMH»T1D(TG) 

TH-TG 
GO  TO  21  . 

20  TMH^TIB(B.TG) 

TH-TG 
GOTO  21 

19  1F(TMG,LT, TL)GO  TO  22 
TH*TD(TMG) 

TMH-TMG 
GOTO  21 
22TH-TB(B,TMG) 

TMH-TMG 

21T(1)-T0 

TM(1)*0. 

T(NTRM)*TH 

TM(NTRM)=TMH 

DEL-TM1I/NXX 
DO  30  1-2.  N  XX 
TMI«DEL*<1-1) 

TM(1)-TM1 

1FCTM1-GE.TL)G0  TO  32 
T(1)-TB(B.TM1) 

GO  TO  30 
32  T(I)-TD(TM1) 

30  CONTINUE 
GO  TO  60 

7  IF(TG.LT.0.0)GO  TO  34 
TMH=T1D(TG) 

TH=TG 
GOTO  33 
34  TH-TD(TMG) 

TMH-TMG 
35T(l)=TO 
TMOMX 
T(NTRM)=TH 
TM(NTRM)*TMH 
DEL-TMH/NXX 
DO  40  1-2.NXX 
TMl-DELM-l) 

TM(1)-TM1 

T(l)-TDCTMl) 

40  CONTINUE 
GO  TO  60 

4  WR1TE(*,43) 

43  FORMAT!  IX. TM  &  T  ESTIMATED  BY  SUBROUTINE  HEAT  ARE  QUESTIONABLE 
*S1NCE  IH  >  6500.01) 

6  IF(HJ.LE.5.8)  TL  -  0.7*FH*(HJ-1.) 

IF(HJ.GT.5.S)TL*  1.34  *FH  *ALOG10(HJ/L8) 

B-BOTL) 

lFfTG.LT  0.0)GO  TO  44 
TEMPL-TDITL) 

IFH'G  LF.TF.MPL'iGO  TO  45 
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TMH=TID(TG) 

TH=TG 
GO  TO  46 
45  TMH*TtC(B.TG) 

TH=TG 
GO  TO  46 

44  IF(TMG.LT.TL)GO  TO  47 
TH=>TD(TMG) 

TMH=TMG 
GO  TO  46 
47  TH«=TC(B.TMG) 

TMH=*TMG 

46T(l)=T0 

TM(l)=*0. 

T(NTRM)«=TH 
TM(NTRM)«TMH 
DEL=TMH/NXX 
DO  55  I=2,NXX 
TM1=DEL*(I-1) 

TM(I)»TM1 

IF(TMl.GE.TL)GO  TO  57 
T(l)-TC(B,TMIj 
GO  TO  55 
57  T(I)-TD(TMi) 

55  CONTINUE 
60  RETURN 
END 

ESTIMATE  A  STERILIZING  VALUE  FROM  TWO  FOOD  TEMPERATURES 
DEL  MINUTE  APART  from  each  other  DURING  THE  HEATING  PHASE 

NOMENCLATURE  ****************************** 

DELF  Estimated  Sterilizing  value  (min.) 

TH  Food  temperature  (TH  >  TL) 

TL  Food  temperature  (TL  <  TH) 

Z  Slope  index  of  thermal  death  time  curve  (C.  Deg.) 


C 


SUBROUTINE  FDIF<DELF,TI.TH,TL,DEL,Z) 


TM=FTG(T1  ,TH,TL,0.5*DEL,0.,DEL) 

DELF=DEL/6.0*(RT(TLZ)+4-*RT(TM,Z)+RT(THJZ)) 

RETURN 

END 


■  mmm  mm  -—m  mm  —mm  mmmmmm  mmm  m—m—mmrn  mmmm-*-  mm— mm  m-  —mm  mmmm  m  m  m—— 

FUNCTION  RT(TJZ) 

COMMON/THISTORY/  TRE  ' 
IF(ABS(T-TRE).LT.1.E-5)G0T0  I 
TRAT-(T-TRE)7Z 
IF(TRATJLT.-6.0)GO  TO  3 
RT=»10.**TRAT 
GO  TO  2 
3  RT=1.0E-6 
GO  TO  2 

1  RT=I.O 

2  RETURN 
END 

C  - - - 

FUNCTION  FX(FA,FB,TA.TB,TX) 

C - 

FX»FA+(TX-TA)*(FB-FA)/(TB-TA) 

RETURN 

END 

FUNCTION  FTG(T I  .TH.TL.TMG ,TM L.DEL) 

IF(ABS(TMG-TMU.LE.l.E-5)G0T0  1 
1F(ABS(T1-TH).LE.I.E-5)G0  TO  2 
R«<TI  -THyfTl  -TL) 

1F(R.GEjO. 9999)00  TO  2 

FTG=TI  -(T1-TU*R**((TMG-TML)/DEL) 
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GOTO  3 
l FTG-TL 
GO  TO  3 

2  FTG«<TH+TL)/2. 

3  RETURN 
END 

ESTIMATE  A  STERILIZING  VALUE  FROM  A  COOLING  CURVE 

************** . ******  NOMENCLATURE  *************** 

FPC  Estimated  sterilizing  value  (min.)  during  cooling  phase 


SUBROUTINE  FCOL(FPC,CJ.e,TG,TW,Z) 

COM  MON/TI I ISTOR  Y/  TRE 
COMMON/COMA/ABC(7) 

COM  MON/COMH/H  (7 ) 

DIMENSION  TMC(7),TC(7) 

DO  1 1*1,7 
TMC(I)*0. 

1  tco)-o. 

IF(ABS(CM.O).LT.  1.0E-4)GO  TO  2 
CALL  COOL(CJ,C,TL,TG,TW  ,TMC,TC> 

CALL  RATE(FPA,TCZ.O„TL) 

GO  TO  3 

2  FPA-O. 

TL-0. 

3  CALL  COOLA(a,C,TL,TG,TW,TMC,TC,Z) 

CALL  RATE(FPB,TC2JL,TMC(7)) 

FPC-FPA+FPB 
RETURN 
END 

C 

C  ESTIMATE  A  STERILIZING  VALUE  FROM  DATA  ON  FOOD 
C  TEMPERATURE  COLLECTED  AT  UNIFORM  TIME  INTERVALS 

e 

£  ••*••*••••*•***•••»****••••••  NOMENCLATURE  ************************* 

C  DELX  uniform  lime  interval  (min.) 

C  NO  Number  of  temperature  <Iata  Collected' 

C  Y  Vector  of  temperature  data  (Deg.  C.) 

C *********************************************************************** 

SUBROUTINE  SIMP(Y.DELX.NOZ.FP) 

C  ••aw-— — 

COMMON/THISTORY/  TRE 
DIMENSION  Y(300) 

NN-NO/2 

NM=NN*2 

F(NM.EQ.NO)GO  10  10 
NM=N0 
GOTO  II 
10  NM-NO-1 
JI  IF(N0.3)I,2,3 
I  IFfNO.EQ  2)GO  TO  12 
!F(N0.EQ.  1  )GO  TO  13 
WR1TE(*,I4) 

14  FORMATC  ’,'NO  FP  IS  ESTIMATED  SINCE  NO  <  I  AT  SUBROUTINE  SIMP*) 
13  FP-0. 

,  GOTO 6 

2FP*DELX/3.*(RT(Y(I),Z)+4.*RT(Y(2),Z)+RT(Y(3)Z» 

GO  TO  6 

3  FP-RT(Y(1),Z)+RT(Y(NM).Z) 

M-NM-1 

FPA-O. 

DO  4  I-2.M.2 

4  FPA— FP A+RT(  Y (I  ),Z) 

IF(NO.EQ.4)GO  TO  15 
FPB-0. 

M-NM-2 
DO  5  1-3, M, 2 

5  FPB=FPB+RT(Y(I),Z) 
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GOTO  16 

15  FP=DELX/3.*(FP+4.*FPA) 

GOTO  20 

16  FP=DELX/3.*(FP+4.*FPA+2.*FPB) 

IF(NM.EQ.N0)GO  TO  6 

20  rP=FP+DELX/2.*(RT(Y(N0-  l).Z)+RT(Y(N(»,Z)) 

GO  TO  6 

1 2  FP=DELX/2.*(RT<Y<  1  )Z)+RT(Y{2)2)) 

6 RETURN 
END 

CALCULATE  7  TEMPERATURES  ON  A  CURVILINEAR  PORTION  OF 
A  COOLING  CURVE.  THESE  TEMPERATURES  ARE  THEN  USED  TO 
CALCULATE  A  STERILIZING  VALUE  BY  USING  THE 7  POINT 
LOUIIATO  QUADRATURE  FORMULA. 

NOMENCLATURE  *•*****»*•**»***.' 

FC  Slope  index  of  atolinj;  curve 


SUBROU  TINE  COOL(a.FC,TL.TO:iW.TM,T) 

•  mmmm  mm m»m >■  aa— a  — aa aaa aaapyiaawaaaMa— 

COMMON/COMA/ABCC7)  . 

COMMON/THISTORY/  TRE 
DIMENSION  TM(7).T(7) 

TXA(Y,BY.YN)«TW+(TG-TW)*EXP(-2.302585‘EXP(ALOG(Y/BY)‘(iyYN))) 

TXBfY.B  Y)=TW +(TG-TW)**(  1  /T  AN(BY  *  Y +0.785398)) 
TXC(Y,BY)-TW+(TGTW)**(COS(BY*Y)) 

TMX(X,TK)=TK/2.+TK*X/2. 

DO  50 1-1,7 
TM(1W>. 

50T(l)=O. 

lP(a.GE.0.(X»l  KIOTO  II 
10WRITE(M2) 

12  FORMATdX.TM  A  T  VLAUES  ESTIMATED  BY  SUBROUTINE  COOL  ARE  QUESTI 
*ONABLE  SINCE  Cl  <  O.IXll’l 
GO  TO  13 

1 1  1F(CJ.LE.0.4)GO  TO  13  o 

1  F(CJ  JLEjU,999999)GO  TO  14 
IF(CJ.LE.  I  .(XXX)  I  )GO  TO  1 5 
IF(CJ.LE.6500.0)GOTO  16 
WRITE(»,I7) 

17  l=ORMAT(IX.TM  A  T  VALUES  liSIIMATF-D  BY  COOL  ARF.  QUF.ST10N 
*AULF.  SINCE  C^O.mOT 

GOTO  16 

13  TL  -  FC  *  (0.3913  -  0.3737  *  ALOGKXCJ1) 

EN  =  (TL/CJ  -  ALOG Kl(CJ)) / (TL/CJ) 

B  =  TL*(TUCJ- ALOGI<KCJ))**(EN) 

T(1)-TG 

TM(I)*Q. 

DO  181=2.7 
lF(l.EQ.4)GOTO  19 
TMZ=TMX(ABC(1),TL) 

TM(1)=TMZ, 

20TXT=TXA(TM(I),B.EN) 

T(I)=TXT 
GOTO  18 
19TM(l>*Tl/2. 

GO  TO  20 

18  CONTINUE 
GO  TO  8 

15  WRITE(*,21) 

21  FORM AT( I X.'CALLING  EXITFROM  COOL  SINCE  OUT) 

GO  TO  8 

14TL«0.9*FC*(1.-CJ) 

B=(1/TL)‘(ATAN  (ALOG  I  <XTG-TW)/(A LOO  1 0(CJ *(TG-TW))-TUFC))-0.7 853982) 
TM(1)=0. 

T(1)=TG 
DO  22  1=2.7 
IF(I.EQ.4)GO  TO  23 
TMZ=TMX(  A  1JC(  I  ),TL) 

TMdWTMZ 
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24  TXT=TXU(TM(I).IJ) 

T(I)=TXT 

GO  70  22 
23TM(l)=TL/2. 

GO  TO  24 
22  CONTINUE 
GO  TO  8 

16  IF(CJ.LE.5.K) IL=0.7*I:C‘(CJ-I.) 

IF(CJ.GT.5.X)  TL  =  1.54  »FC  *ALOGI(l(CJ/l .«) 

B=(  I.O/TL)*ACOS((ALOG10(CJ*('FG-TW))-71VFC)/ALOG10(TG-TW)) 
TM(  l)=0. 

T(1)=7G 
DO  25  1*2,7 
IF(I.EQ.4)GO  TO  26 
TMZ=TMX(ABC(I),TL) 

TM(1)*TMZ 
27  TXT=TXC(TM(I),B) 

T(I)=TXT 
GO  TO  25 
26  TM(I  )=TU2. 

GO  TO  27 

25  CONTINUE 
8  RETURN 

END 

CALCULATE  7  TEMPERATURES  ON  A  LINEAR  PORTION 
OF  A  COOLING  CURVE 


SUBROUTINE  C00LA(CJ.FC,TL,7G,TW.TM,T,Z) 

DIMENSION  TM(7),T(7) 

COM  MON/COM  A/ABC(7) 

COMMON/T1 IISTORY/  TRF. 
TX(Y)=7‘W+CJ*(7TiT‘W)*EXP(-2.30258.5*Y/FC) 

TMXl  X.TBX  ,TI  N  )=(TB  X  +TIN  Jl/2.+(TUX-TI  N  )*X/L 
TM  Y  (X  ,TBX  )=TBX/2.+TBX*X/2. 

7 1M<X)=FC*AI.OG lOiCJW.  7W)AX-TW» 

IX)  50  1=1.7 
TM(l)=0.0 
50T(1)=0.(> 

I  F(CJ  .LE.0.999999  )GO  TO  8 
IF(CJ.LE.!.OOOOI)GO  TO  9 
GO  TO  8 

9  TBL=TG 

C .  WHEN  CM.O.THE  COMPUTATIONAL  FLOW  IS  BLANCHED  TO  9.  IN 

C  THIS  CASE  TBL=TG  SINCE  THERE  IS  NO  CURVEL1NEAR  PORTION... 
GOTO  10 
8  TBL=TX(TL) 

10  IF(TRE.NE.(5.*Z))GO  TO  20 
TLOW=l.E-6 

GO  TO  21 

20TLOW=TRE-5.*Z 
21  IF(TLOW.GE.TG)GO  TO  I 
IF{'ILOW.GE.TBL)G()  TO  1 
IF(TLOW.GT.TW )GO  TO  2 
IF<TLOW.LE.TW)GO  70  3 
I  TEND.TIM(CrBL+TW)«.) 

7  CONTINUE 
T(  I  )=TBL 
TM(1)=TL 
1)0  4  1=2,7 
IF(I.E0.4)G0  10  5 
1  F{CJ  LE0.999999)GO  TO  1 1 
IF(CJ.LE.1. 00001  (GOTO  12 

1 1  TMT*=TMX{  A  BC(I  ).TEN  D,TL) 

6  TM(I)=TMT 

GOTO  13 

12  TMT=TMY(ABC(I  J.TEND) 

GO  TO  6 

I3T[I>=TX(TMT) 

GO  TO  4 

5  IF(CJ.LE.O:999999)GO  TO  14 
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1F(CJ.LE.  1  .(XXX)  1  )G0  TO  15 

14  TMT=(TEND+TL)/2. 

GO  TO  6 

15  TMTsTEND/2. 

GO  TO  6 

4  CONTINUE 
GOTO  16 

2  TEND=TIM(TLOW) 

GO  TO  7 

3  TEND=T1M(TW+0,01  •(TBL-TW)) 

GO  TO  7 

16 RETURN 
END 
C 

C  CALCULATE  STERILIZING  VALUES  BY 
C  APPLYING  LOBBATO  7  POINT  QUADRATURE  FORMULA 
C 

£  *****************************  NOMENCLATURE  *************************** 
C  R  Sterilizing  value  calculated  (min.) 

C  T  Seven  temperatures  (Deg.  C.)  used  to  calculate  R  value. 

C  TBGIN  Lower  time  limit  of  integration  (min.) 

C  TEND  Upper  time  limit  of  integration  (min.) 

Q  *********************************************************************** 

C - 

SUBROUTINE  RATE(R.T,Z,TBGI N.TEN D) 

COMMON/COMH/H<7) 

COMMON/THISTORY/  TRE 
DIMENSION  T{7) 

IF(T(l).NE.TRE)GO  TO  2 
RA=H(1) 

GO  TO  4 

2  RA  =H(  1  )*1 0.  *  *((T(  1  )-TRE)/Z) 

4  CONTINUE 
DO  1  1=2,7 

1F(T(I).NE.TRE)G0  TO  5 

RA=RA+H(I) 

GOTO  I 

5  RA=RA+H(1)*10.**((T(I)-TRE)/Z) 

1  CONTINUE 

IF(TBGIN.GE.1.0E-3)GO  TO  6 

R=TEND/2,*RA 

GO  TO  7 

6  R=(TEND-TBGIN)/2.*RA 

7  RETURN 
END 
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8.2  EXAMPLE  OF  OUTPUT  FROM  ONE-TRAY  CONCEPT  PROGRAM -OP 3 . F 

TRAY  DESIGN  OF  MULTICOMPARTMENT  M.R.E. 

MEAL  NAMES  ARE  chichen  potato  apple  d 
INDEPENDENT  VARIABLES 


NAME 

LOWER  BOUND 

UPPER  BOUND 

VALUE 

INSUL 

O.OOOOOE+OO 

4 . 00O00E-03 

4 , OOOOOE-03 

HEIGT 

3.15600E-02 

3 . 15600E-02 

3.15600E-02 

LBN 

1.85800E-01 

1 . 65800E-01 

1 . 8560QE-01 

VDI 

2. 23000E-04 

2.25000E-04 

2. 24000E-04 

VS 

1.70000E-04 

1 . 71000E-04 

1 . 70000B-04 

VZ 

2 . 26000E-04 

2. 300Q0E-04 

2. 29000E-04 

DEPENDENT  VARIABLES 

NAME 

LOWER  BOUND 

UPPER  BOUND 

VALUE 

VDO 

O.OOOOOE+OO 

1 . OOOOOE+QO 

4. 07382E-04 

NSC 

6. OOOOOE-02 

2. OOOOOE-Ol 

1 . 20300E-01 

DDSRT 

1 . 50000E-02 

3 . 60000E-02 

3.40872E-02 

HTIME 

1 . 00000E+01 

2. 00000E+02 

2.81708E+01 

FE 

6 . 00000E+00 

1 . 50000E+01 

6. 36309E+00 

FS 

6. 00000E+00 

1 . 50000E+01 

6 . 05329E+00 

FD 

1.00000E+00 

3 .10000E+03 

2.95315E+00 

TFIN 

9.10000E+01 

1.21100E+02 

9.67900E+01 

OBJECTIVE  FUNCTION 

NAME 

VALUE 

REL  DEV 

ABS  DEV 

DEVI  A 

4.56656E-01 

1. 00O00E-02 

1. OOOOOE-Ol 

ITERATION  0 

VARIABLES  IN  SIMPLEX 

(CENTROID  IS  VERTEX  13) 

VERTEX 

1 

2 

3 

4 

5 

INSUL 

4 . 00000E-03 

3.66468E-03 

3.94874E-03 

1.95494E-03  - 

1.38398E-03 

HEIGT 

3.15600E-02 

3. 15600E-02 

3.15600E-02 

3. 15600E-02 

3.15600E-02 

LEN 

1.85800E-01 

1. 85800E-01 

1.85800E-01 

1.85800E-01 

1.85800E-01 

VDI 

2 . 24000E-04 

2. 24139E-04 

2.23762E-04 

2.23394E-04 

2. 24797E-04 

VS 

1.70000E-04 

1.70845E-04 

1.70016E-04 

1.70090E-04 

1.70289E-04 

VE 

2 . 2900  0E-04 

2.26089E-04 

2.29174E-04 

2.28790E-04 

2.29797E-04 

VDO 

4.07382E-04 

4.07382E-04 

4.07382E-04 

4.07382E-04 

4. 07382E-04 

WSC 

1 . 20300E-01 

1.20300E-01 

1.20300E-01 

1.20300E-01 

1.20300E-01 

DDSRT 

3.40872E-02 

3.38294E-02 

3.39633E-02 

2. 99427E-02 

2.89267E-02 

HTIME 

2 . 81708E+01 

2. 84031E+01 

2.81708E+01 

2.81708E+01 

2. 84031E+01 

FE 

6. 36309E+00 

6.64337E+0O 

6. 34593E+00 

6.38403E+00 

6 . 47171E+00 

FS 

6 . 05329E+00 

6.12741E+00 

6.05121E+00 

6. 04184E+O0 

6 . 19958E+00 

FD 

2.95315E+00 

3. 85916E+00 

3 . 19804E+00 

6. 47425E+01 

1 . 59476E+02 

TFIN 

9.67900E+01 

9.79931E+01 

9.71607E+01 

1.10708E+02 

1 . 14  400E+02 

DEVIA 

4.56656E-01 

1.32994E+00 

3 . 92762E-01 

6.19847E+01 

1. 56847E+02 

VERTEX 

8 

9 

10 

11 

12 

INSUL 

2.63870E-03 

1 . 94039E-03 

3.81747E-03 

3.10620E-03 

3.02728E-03 

HEIGT 

3. 15600E-02 

3 . 15600E-02 

3.I5600E-02 

3. 15600E-02 

3 . 15600E-02 

LEN 

1.85800E-01 

1. 85800E-01 

1 . 85SOOE-01 

1.85800E-01 

1.85800E-01 

VDI 

2. 24233E-04 

2.24162E-04 

2.23661E-04 

2.24904E-04 

2 . 24700E-04 

VS 

1.70680E-04 

1. 70727E-04 

1.70918E-04 

1.70105E-04 

1 . 70875E-04 

VE 

2 . 29421E-04 

2.28576E-04 

2.28348E-04 

2.28180E-04 

2 . 29759E-04 

VDO 

4.07382E-04 

4 . 07382E-04 

4 . 07382E-04 

4.07382E-04 

4.07382E-04 

WSC 

1 . 20300E-01 

1.20300E-01 

1.20300E-01 

1. 20300E-01 

1.20300E-01 

DDSRT 

3. 13854E-02 

2.99825E-02 

3. 36917E-02 

3.23807E-02 

3.22045E-02 

HTIME 

2 . 84O31E+01 

2 . 84031E+01 

2. 84031E+01 

2. 81708E+01 

2.84031E+01 

FE 

6. 50926E+00 

6.59413E+00 

6 , 61712E+00 

6. 44466E+00 

6.47542E+00 

FS 

6.14865E+00 

6.14241E+00 

6.11777E+00 

6. 03991E+00 

6.12346E+00 

FD 

2.31563E+01 

6 . 87606E+01 

4.20005E+00 

1.02365E+01 

1.26025E+01 

TFIN 

1.06174E+02 

1.10929E+02 

9.83847E+01 

1.02532E+02 

1.03436E+02 

DEVIA 

2. 0  5142E+01 

6.61972E+01 

1. 63494E+00 

7 . 54126E+00 

9. 90140E+00 
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ITERATION  10  ENTERING  VERTEX  2  FDEV  -  9.3718E-01  FMIN  -  3.9276E-01 

VARIABLES  IN  SIMPLEX  (CENTROID  IS  VERTEX  13) 

VERTEX  1  2  3  4  i 

INSUL  4 . 00000E-03  3.99576E-03  3.94874E-03  3.96432E-03  3.91001E-03 

HEIGT  3.15600E-02  3.15600E-02  3.15600E-02  3.15600E-02  3.15600E-02 

LEN  1 . 85800E-01  1.85800E-01  1.85800E-01  1.85800E-01  1.85800E-Q2 

VDI  2.24000E-04  2.23052E-04  2.23762E-04  2.24520E-04  2.23201E-O4 

VS  1.70000E-04  1.70006E-04  1.70016E-04  1.70956E-04  1.70808E-04 

VE  2. 29000E-04  2.28875E-04  2.29174E-04  2.28423E-04  2.28082E-04 

VDO  4 . 07382E-04  4.07382E-04  4.07382E-04  4.07382E-04  4.07382E-04 

NSC  1.20300E-01  1.20300E-01  1.20300E-01  1.20300E-01  1.20300E-02 

DDSRT  3.40872E-02  3.39937E-02  3.39633E-02  3.40624E-02  3.38356E-QI 

HTIME  2 . 81708E+01  2.81708E+01  2.81708E+01  2.84031E+01  2.84031E+01 

FE  6. 36309E+00  6.37547E+00  6. 34593E+00  6.60949E+00  6.64387E+0C 

FS  6.05329E+00  6.05230E+00  6.05121E+00  6.11293E+00  6.13216E+0C 

FD  2.95315E+00  3.09643E+00  3.19804E+00  3.30650E+00  3.76981E+0C 

TFIN  9.67900E+01  9.70076E+01  9.71607E+01  9.72752E+01  9.78810E+02 

DEVIA  4 . 56656E-01  3.26742E-01  3.92762E-01  7.28917E-01  1.24583E+0C 

VERTEX  8  9  10  11  11 

INSUL  3 . 97637E-03  3.94621E-03  3.99458E-03  3.99299E-03  3.98500E-C:- 

HEIGT  3 . 15600E-02  3.15600E-02  3.15600E-02  3.15600E-02  3.15600E-C1 

LEN  1. 85800E-01  1.85800E-01  1.85800E-01  1.85800E-01  1.85800E-C1 

VDI  2 . 23489E-04  2.23499E-04  2.23473E-04  2.23063E-04  2.23080E-04 

VS  1.70459E-04  1.70296E-04  1.70072E-04  1.70955E-04  1.70118E-04 

VE  2 . 28054E-04  2.28717E-04  2.28461E-04  2.28621E-04  2.28038E-04 

VDO  4.07382E-04  4.07382E-04  4.07382E-04  4.07382E-04  4.07382E-04 

NSC  1 . 20300E-01  1 . 20300E-01  1.20300E-01  1.20300E-01  1.20300E-01 

DDSRT  3.39941E-02  3.39347E-02  3.40291E-02  3.39892E-02  3.39747E-0I 

HTIME  2. 84031E+01  2.84031E+01  2.81708E+01  2.84031E+01  2.81708E+01 

FE  6.64680E+00  6.57992E+00  6.41670E+00  6.58958E+00  6.45887E+0t 

FS  6.17750E+00  6.19848E+00  6.04388E+00  6.11313E+00  6.03803E+0C 

FD  3.40737E+00  3.54175E+00  3.04186E+00  3.39107E+00  3.13571E+0C 

TFIN  9. 74114E+01  9.75917E+01  9.69262E+01  9.73876B+01  9.70665E+01 

DEVIA  9.31661E-01  1.02015E+00  4i309€6E-01  7.93771EM)!  4.56542E-01 

NOT  MUCH  IMPROVEMENT  COULD  BE  ACHIEVED  AFTER  19th  ITERATION. 

PROCEDURE  HAS  NOT  CONVERGED  IN  19  ITERATIONS. 

THE  CURRENT  TRIAL  SOLUTION  AND  SIMPLEX  IS  AS  FOLLOWS: 

VARIABLES  IN  SIMPLEX  (CENTROID  IS  VERTEX  13) 


VERTEX 

1 

2 

3 

4 

r 

INSUL 

4.00000E-03 

3 . 99576E-03 

3.94874E-03 

3. 99907E-03 

3. 99753E-C2 

HEIGT 

3. 15600E-02 

3 . 15600E-02 

3 . 15600E-02 

3.15600E-02 

3.15600E-01 

LEN 

1 . 85800E-01 

1 . 85800E-01 

1.85800E-01 

1. 85800E-01 

1.85800E-01 

VDI 

2.24000E-04 

2 . 23052E-04 

2.23762E-04 

2 . 23073E-04 

2.23872E-D4 

VS 

1.70000E-04 

1.70006E-04 

1. 70016E-04 

1.70005E-04 

1.70032E-04 

VE 

2 . 29000E-04 

2.28875E-04 

2.29174E-04 

2.29829E-04 

2.29243E-04 

VDO 

4.07382E-04 

4.07382E-04 

4.07382E-04 

4. 07382E-04 

4.07382E-04 

NSC 

1.20300E-01 

1.20300E-01 

1. 20300E-01 

1 . 20300E-01 

1.20300E-C1 

DDSRT 

3. 40872E-02 

3.39937E-02 

3.39633E-02 

3 . 40022E-02 

3 . 40708E-C1 

HTIME 

2 . 81708E+01 

2.81708E+01 

2.81708E+01 

2.81708E+01 

2.81708E+C1 

FE 

6.  36309E+00 

6.37547E+00 

6. 34593E+00 

6. 28119E+00 

6.33896E+0C 

FS 

6.05329E+00 

6.05230E+00 

6. 05121E+00 

€. 05251E+00 

6. 04904E+OC 

FD 

2.95315E+00 

3.09643E+00 

3. 19804E+00 

3.07872E+00 

2 . 98037E+0I 

TFIN 

9. 67900E+01 

9.70076E+01 

9.71607E+01 

9 . 69809E+01 

9. 68323E+CC 

DEVIA 

4.S6656E-01 

3.26742E-01 

3.92762E-01 

2 . 49965E-01 

4 . 09556E-G1 

VERTEX 

8 

9 

10 

11 

11 

INSUL 

3 . 99884E-03 

3. 98047E-03 

3.994S8E-03 

3. 98368E-03 

3.98500E-Q2 

HEIGT 

3.15600E-02 

3.15600E-02 

3.15600E-02 

3.15600E-02 

3. 15600E-CI 

LEN 

1 . 85800E-01 

1.85800E-01 

1.85800E-01 

1.85800E-01 

1.85800E-C 

VDI 

2.23870E-04 

2.23507E-04 

2.23473E-04 

2. 24593E-04 

2. 23080E-0-; 

VS 

1 . 70022E-04 

1.70003E-04 

1.70072E-04 

1 . 70013E-04 

1.70118E-CU 
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VE 

2. 29853E-04 

2.29311E-04  2, 

VDO 

4.07382E-04 

4 . Q7382E-04  4. 

wsc 

1 . 20300E-01 

1.20300E-01  1, 

DDSRT 

3.40732E-02 

3 . 40039E-Q2  3. 

HTIME 

2. 81708E+01 

2.81708E+01  2. 

PE 

6.27876E+0Q 

6.312598+00  6. 

PS 

6. 05026E+00 

6.05277E+00  6. 

FD 

2.97465E+00 

3.09835E+00  3, 

TFIN 

9.682348+01 

9.70121E+01  9. 

DEV1A 

3.53853E-01 

2. 61465E-01  4, 

INDEPENDENT  VARIABLES 

NAME 

LOWER  BOUND 

UPPER  BOUND 

INSUL 

O.OOOOOE+OO 

4.00000E-03  3. 

HEIGT 

3.15600E-02 

3. 15600E-02  3. 

LBN 

1.B5800E-01 

1.858QQE-01  1. 

VDI 

2.23000E-04 

2.250OOE-Q4  2. 

VS 

1.70000E-04 

1 . 71Q0QE-04  i. 

VE 

2 . 28000E-04 

2.30000E-04  2. 

DEPENDENT  VARIABLES 

NAME 

LOWER  BOUND 

UPPER  BOUND 

VDO 

0.00000E+00 

1.00000E+00  4. 

WSC 

6.00000E-02 

2 . oqoooe-qi  1. 

DDSRT 

1 . 50000E-02 

3 . 60000E-02  3, 

HTIME 

1 . 00000E+01 

2.00000E+02  2. 

PE 

6. 00000E+00 

1.50000E+01  6, 

FS 

6.  00000E+00 

1. 50.Q00E+01  6. 

FD 

1.00000E+00 

3.10000E+03  3. 

TFIN 

9. 10000E+01 

1.2UQ0E+02  9. 

OBJECTIVE  FUNCTION 

NAME 

VALUE 

REL  DEV 

DEVIA 

2 . 49965E-01 

1.00000E-02  1. 

AT 

TIME  *  min. 

TEMP.  =  DEG.  C. 

1.127 

26.450 

2.254 

30.660 

3.380 

37.236 

4.507 

45.595 

5.634 

55.050 

6.761 

64.911 

7.888 

74.565 

9.015 

83.426 

10.141 

90.353 

11.268 

96.007 

12.395 

100.621 

13.522 

104.386 

14.649 

107.459 

15.776 

109.968 

16.902 

112.015 

18.029 

113.685 

19.156 

115.048 

20.283 

116.161 

21.410 

117.069 

22.537 

117,810 

23.663 

118.415 

24.790 

118.909 

25.917 

119.312 

27.044 

■  119.641 

28.171 

119.909 

28.171 

119.909 

28461B-04 

2 .293748-04 

2.280388-04 

07382E-04 

4.07382E-04 

4.073828-04 

20300E-01 

1 , 2Q300E-Q1 

1 .203008-01 

40291E-02 

3.41077E-02 

3.39747E-02 

817Q8E+01 

2. 81708E+01 

2.817088+01 

4167QB+00 

6. 32602E+0Q 

6.458878+00 

04388E+00 

6. Q5164E+QQ 

6.03803E+00 

04186E+0Q 

2.94455E+00 

3.135718+00 

69262E+01 

1.677858+01 

9.70665E+01 

3Q966E-01 

4.298258-01 

4.565428-01 

VALUE 

99907E-03 

156008-02 

8S800E-01 

23Q73E-Q4 

70005E-04 

29829E-04 

VALUE 

07382E-04 

20300E-01 

40022E-02 

81708E+01 

2B119E+00 

05251E+00 

07872E+00 

69809E+01 

ABS  DEV 

1 

OOOQOE-Ql 
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28.474 

119.685, 

29.120 

117.738 

29.959 

112.438 

30.797 

104.532 

31.443 

97.142 

31.746 

93.406 

35.322 

93.406 

35.648 

89.212 

36.343 

81.064 

37.244 

71.906 

38.145 

64.121 

38.840 

58.927 

39.166 

56.703  .. 

1.127 

26.439 

2.254 

30.620 

3.380 

37.153 

4.507 

45.463 

5.634 

54.871 

6.761 

64.695 

7.888 

74.325 

9.015 

82.988 

10.141 

89.852 

11.268 

95.480 

12.395 

100.094 

13.522 

103.877 

14.649 

106.979 

15.776 

109.522 

16.902 

111.607 

18.029 

113.317 

19.156 

114.719 

20.283 

115.868 

21.410 

116.810 

22.537 

117.583 

23.663 

118.216 

24.790 

118.736 

25.917 

119.161 

27.044 

119.511 

28.171 

119.797 

28.171 

ai9.797 

28.481 

119.573 

29.142 

117.628 

30.000 

112.334 

30.858 

104.437 

31.519 

97.055 

31.829 

93.324 

35.488 

93.324 

35.822 

89.134 

36.533 

80.996 

37.455 

71.848 

38.377 

64.072 

39.087 

58.884 

39.421 

56.662 

1.127 

25.287 

2.254 

26.142 

3.380 

27.549 

4.507 

29.482 

5.634 

31.904 

6.761 

34.771 

7.888 

38.032 

9.015 

41.632 

10.141 

45.510 

11.268 

49.605 

12.395 

53.855 
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13.522 

58.201 

14.649 

62.580 

15.776 

66.753 

16.902 

70.628 

18.029 

74.227 

19.156 

77.569 

20.283 

80.673 

21.410 

83.555 

22.537 

86.232 

23.663 

88.718 

24.790 

91.027 

25.917 

93.172 

27.044 

95.163 

28.171 

97.012 

28.171 

x  97.012  -V 

29.005 

"96.839 

30.779 

95.338 

33.081 

91.251 

35.384 

85.156 

37.158 

79.461 

37.992 

76.583 

47.813 

76.583 

48.710 

73.350 

50.618 

67.070 

53.093 

60.010 

55.568 

54.010 

57.476 

50.006 

58.372 

48.292 

ENTREE 

COMPARTMENT  DIMENSION 

0.1858000  5.5750001E-02 

STARCH 

COMPARTMENT  DIMENSION 

7.0500001E-02  0.1203000 

DESSERT  COMPARTMENT  DIMENSION 

0.1073000  0.1203000 

DIMENSION  OF  INNER  DESSERT  TRAY  9. 9299997E-02  0.1123000 

VOLUME 

OF  (OUTER)  DESSERT  COMPARTMENT  2. 5871870E-04 

STOP 


2.2157073E-02 
2 . 0044826E-02 
2 . 0042983E-02 
2.0042988E-02 
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8  EXAMPLES  OF  RUNNING  ONE-TRAY  CONCEPT  PROGRAM-OP 3. F 

8.1  EXAMPLE  OF  INPUT  FILE 

8.1.1  EXAMPLE  OF  OPT3.DAT 

TRAY  DESIGN  OF  MULTI COMPARTMENT  M.R.E.  NO 


6 

8  0 

200  10 

ZNSUL 

0.000 

0.004 

0.004 

HEIGT 

0.03156 

0.03156 

0.03156 

LEN 

0.1858 

0.1858 

0.1858 

■VD1 

0.000224 

0.000224 

0.000224 

VS 

0.000170 

0.000170 

0.000170 

VE 

0.000229 

0.000229 

0. 000229 

VDO 

0.0 

1.0 

WSC 

0.06 

0.20 

DDSRT 

0.015 

0.036 

HTIME 

10.0 

200.0 

FE 

6.0 

15.0 

FS 

6.0 

15.0 

FD 

1 . 0 

3100.0 

TF1N 

91.0 

121.1 

DEVIA 

0.01 

0.1 
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8.1.2  EXAMPLE  OF  DESIGN1.DAT 
0.008 

200.0  20.0  0.12983 

121.1  25.0  20.0 

chichen  stew 

0.00  0.00  0.00 

0.4678  1. 789E-07 

10.0  121.1,.  ,  6.1/1, 

potato  butter 

0.00  0.00  0.00 

0.6588  1.825E-07 

10.0  121.1  6.1  v 

apple  dessert 

0.00  0.00  0.00 

0.4687  1 . 825E-07 

10.0  100.0  3.1 
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C  8.3  ONE -TRAY  CONCEPT  PROGRAM  (OP3.F) 

C  Main  program  for 

C  the  optimization  of  retortable  plastic  compartment  tray  design 

C  Ref.:  Saguy,  I.,  1983.  Optimization  of  dynamic  systems  utilizing  the 

C  Maximum  principle,  pp.  321-359.  in  "Computer-Aided  Techniques 

C  in  Food  Technology",  ed.  I.  Saguy,  Marcel  Dekker,  Inc.,  Mew  York. 

C 

Q  *****************************  nomenclature  ********************************* 
C  F  objective  function 

C  X(l),...,  X (NX)  an  array  containing  values  of  the  independent  variables 

C  Y  (1) , . . . ,  Y (NY)  an  array  containing  values  of  the  dependent  variables 

.C  P{1 ),...,  P (NP)  an  array  conatining  values  of  the  parameters  in  the 
.  C  model  which  may  be  varied  from  one  optimization  run 

C  to  the  next 

C  NX  number  of  independent  decision  variables 

C  NY  number  of  dependent  variables 

C  NP  number  .of  parameters 

C  MAXIT  maximum  allowable  number  of  iterations  to  be  performed 

C  NFREQ  iteration  frequency  at  which  intermediate  printing  of  the  current 

C  simplex  is  to  be  performed  to  monitor  progress  toward  solution 

C  NAMEX  name  of  variable,  expressed  as  five  alphanumeric  characters 
C  XL (I)  lower  bound  on  variable  (real) 

C  XU (I)  upper  bound  on  variable  (real) 

C  XU)  initial  value  of  the  variable  corresponding  to  a  feasible  point 
C  NAMEY  name  of  variable,  expressed  as  five  alphanumeric  characters 
C  YL (i )  lower  bound  on  variable  (real) 

C  YU  (I)  upper  bound  on  variable  (real)  1 

C  NAMEP  name  of  parameter,  expressed  as  five  alphanumeric  characters 

C  P(X)  value  of  parameter 

C  namef  name  of  objective  function,  expressed  as  five  alphanumeric  charact' 

C  .RDEV  allowable  relative  deviation  in  objective  function  value  to  be 

C  used  in  convergence  test  (  a  value  of  0.001  is  typical) 

C  ADEV  allowable  absolute  deviation  in  objective  function  value  to  be 
C  used  in  convergence  test  (  a  value  of  0.001  is  typical) 

C 

C 

C  **************************************************************************** 

C 

DOUBLE  PRECISION  DSEED 

CHARACTER  NTITL*47, NAMEF*5, NAMEX (12) *5, NAMEY (30) * 5, NAMEP (1 ) *5, 

*OLD*2 

COMMON/OPT/  F, X (12) , XU (12) ,Y (30 ) , P ( 1 ) , NIT 
COMMON /CONDI /EDGE, G,HEAD, V (3) , XLL (3,  3) 

COMMON/STORE/  NX, NY, NP, XL (12) , YL(30) , YU (30) , 

*XC  (12), XX  (12, 24) ,YY (30,24 ) , FF (24), JG, 

♦ALPHA, BETA, KMAX, MAXIT, FR, FA, FDEV, FMIN, NFREQ 
COMMON/ ASTORE/NTITL, NAMEF, NAMEX, NAMEY , NAMEP , OLD 
COMMON/FAND J/C (3) , CJ (3) , F H ( 3 ) , H J ( 3 ) , THEAT1 , TI ,  TR,  TC 
DIMENSION  TM1 (300) ,TM2 (7) , TM3 (7) ,  TT1  (300)  ,T2 (7) ,T3(7) 

ALPHA-1 . 3 
BETA- 0.5 
GAMMA-0.10 
NMAX1-50 
DSEED-123457.D0 
MAXIT— €0 

C  . READ  BASIC  DATA  FOR  OPTIMIZATION  RUN . 

99  CALL  OPTRD 
CALL  OPTPR(l) 

C  .  USE  OLD  SIMPLEX  OR  NOT?  ..... 

IF (OLD. EQ. 'NO' ) GOTO  200 

NIT-0 

IND-3 

CALL  MODEL (IND) 
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KMAX-2*NX 

OPEN  ( 8 , FILE- ’ COMP . DAT  * , STATUS- ' OLD ' ) 

KCR-XMAX 

IGG-0 

808  KPT-XCR 

IF (XCR. GT. 7 ) KPT- 7 
INDEX— IGG+7 
DO  802  I— 1,NX 

READ  (8,  3001)  (XX  {I,  K+XNDEX) , K-l,  KPT) 
802  CONTINUE 

IF  (NY) 804, 804,805 
.  805  DO  806  I— 1, NY 

READ (8, 3001) (YY(I,X+XNDEX),K-1,KPT) 

806  CONTINUE 

80<  READ (8, 3001) (FF (X+ INDEX) ,X-1,KPT) 
XCR-XCR-7 
XGG— IGG+1 

IF (KCR) 807,  807, 808 

807  CONTINUE 
XND-2 
GOTO  300' 

200  CONTINUE 

DO  100  I— 1 , NX 
100  XC  (I)-X(I) 

NIT-0 

IND-1 

CALL  IMTST ( N1 , 1 , IFLAG , IND ) 

CALL  OPTPR(2) 

IND— 2 

IF (IFLAG) 500, 501,500 
501  CONTINUE 

C  .  ESTABLISH  INITIAL  SIMPLEX  . 

KMAX— 2*NX 
K-l 

104  FF (K) -F 

DO  102  I-1,NX 
XX (I, X)  —X  (I) 

102  CONTINUE 

IF (NY) 120, 120, 121 
121  CONTINUE 

DO  105  I— 1, NY 

105  YY (I, K) -Y (I) 

120  CONTINUE 

DO  103  I— 1, NX 

103  XC  (I )  -  (XC  (I)  *  (X-l )  +X(I) )  /X 
IF (K-KMAX) 110, 300, 300 

110  X-X+l 

DO  106  X-l, NX 

CALL  GGUBS (DSEED. YFL) 

106  X (I) — XL(I) +YFL* (XU(I)-XL (I) > 

CALL  IMTST (N1,NMAX1, IFLAG, IND) 

IF (IFLAG >502,503, 502 

503  CONTINUE 


GOTO  104 

C  .  BEGIN  ITERATIVE  SEARCH  FOR  OPTIMUM  ..... 

300  CONTINUE 

C  .  ESTABLISH  COUNTER  FOR  INTERMEDIATE  PRINTING 


IF (NFREQ) 520, 520, 508 
520  IPRT-MAXIT+1 
GOTO  509 
508  IPRT-NFREQ 
WRITE (6, 1003) 

CALL  OPTPR (3) 
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509  CONTINUE 

C  .  FIND  POINTS  OF  SIMPLEX  WITH  HIGHEST  AND  LOWEST  FUNCTION  VAL. 

317  NIT-NIT+1 

FMAX— 1.0E10 
FMIN-1 .0E10 
JG-0 
JL— 0 

DO  323  J-l , KMAX 
IF (FF (J) -FMAX) 301, 301, 303 
303  JG-J 

FMAX-FF { J) 

301  CONTINUE 

IF (FF ( J)  -FMIN) 322, 323, 323 

322  FMIN-FF(J) 

JL*J 

323  CONTINUE 


C  .  TEST  FOR  CONVERGENCE  . 

FDEV-FMAX-FMIN 
FTEST-FDEV-FR*ABS (FMIN) -FA 

C  .  TEST  SATISFIED,  PROCEDURE  HAS  CONVERGED 

DO  404  I-1,NX 
X  (I)  “XX  (I,  JL) 


404  CONTINUE 

IF (NY) 407, 407, 406 

406  DO  405  I-1,NY 

405  Y(I)-YY(I,  JL) 

407  CONTINUE 
F-FF { JL) 

IF (FTEST) 400, 400, 401 
400  CALL  OPTPR ( 2 ) 

GO  TO  518 


C  .  TEST  NOT  SATISFIED,  PROCEED  FOR  ANOTHER  ITERATION  . 

401  CONTINUE 
C 

C  COMPARE  CHANGES  IN  THE  OBJECTIVE  FUNCTION  BETWEEN  ITERATIONS 
C  TO  AVOID  UNNESSARY  COMPUTATIONS  WHEN  NOT  CONVERGE 


C 

EPS  -  0.01 

AFD1  -  ABS(FTEST-FOLD) 

AFD2  “  ABS(FTEST-FNEW) 

IF (AFDl.LE.EPS.OR.AFD2.LE.EPS)  GOTO.  511 
IF (ABS (FDEV/FMIN) .LE.0.01)  GOTO  511 
411  FOLD  -  FNEK 
FNEW  -  FTEST 


C 

C  CHECK  THE  NUMBER  OF  ITERATIONS  AGAINST  THE  MAXIMUM  NUMBER 
C 

IF (NIT-MAXIT) 402, 402, 403 

C  .  MAXIMUM  ALLOWABLE  NO.  OF  ITERATION  HAS  BEEN  EXCEEDED  . 


403  CALL  OPTPR ( 1 ) 

WRITE (6, 1001) NIT 
DO  704  I-1,NX 
X(I)-XX(I,  JL) 

704  CONTINUE 

IF (NY) 707,707,706 

706  DO  705  I-1,NY 

705  Y(I)-YY(I, JL) 

707  CONTINUE 
F-FF (JL) 

CALL  OPTPR (3) 

CALL  OPTPR (2) 

GOTO  511 

402  CONTINUE 
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c 

C  .  COMPUTE  CENTROID  OF  POINTS  IN  SIMPLEX, EXCLUDING  ONE 

C  WITH  HIGHEST  FUNCTION  VALUE  _ 

DO  304:  1*1,  NX 

XC(I)-0.0 

DO  305  J-1,KMAX 

305  XC(I)-XC(I)+XX(I,J) 

304  XC  (  I ) - (XC ( I ) -XX  (I,  JG) )  /  (IMUC-1 ) 

C  _ _  COMPUTE  NEW  TRIAL  POINT  BY  REFLECTING'  ROINT  OF  HIGHEST 

C  FUNCTION  VALUE  THROUGH  CENTROID  OF  REMAINING  POINTS  ..... 

302  DO  306  1*1, NX 

X  (I)  -XC  (I)  -ALPHA*  (XX  <1,  JG)  -XC(I) ) 

C  .....  TEST  EACH:  EXPLICIT  VARIABLE  TO  SEE,  IF  IT  VIOLATES  BOUND. 

C  IF  SO, SET  INSIDE  BOUND.  BY  A  SMALL.  AMOUNT  ....  . 

IF (XU (I ) -X  (I) ) 307, 307,308 

307  X  (I)  -XU  (I)  -GAMMA*  (XU  (I)  -XC  (I);) 

308  IF (X(I )  -XL (II ) 309, 309, 306 

309  X  (I )  -XL  (  I.)  +GAMMA*  (XC  (I )  -XL  (I)  ) 

306  CONTINUE 

C  .  TEST  TO  SEE  IE  IMPLICIT  VARIABLES  VIOLATE  BOUNDS  . . 

CALL  IMTST (N1 , NMAX1 , IFLAG, IND) 

IF (IFLAG)  504,505,504 

505  CONTINUE 

C  .  TEST  TO  SEE  IF  TRIAL  POINT  PRODUCES  HIGHEST  FUNCTION 

C  VALUE  IN  NEW:  SIMPLEX.  _ 

DO  312  J— 1 ,  KMAX' 

IF (J-JG) 316,312,316 
316  IF IFF ( J) -F) 312, 312, 313 

312  CONTINUE 

C  _  BECAUSE  TRIAL  POINT  PRODUCES'  HIGHEST  FUNCTION:  VALUE, MOVE 

C  TO  FRACTIONAL  DISTANCE.  BETA  FROM  CENTROID:  OF  OTHER  POINTS 

DO  314  I-1,NX 

314  X (I ) -XC (I) +BETA* (X(I)-XC(I) ) 

C  _  INSERT  TRIAL  POINT  INTO  NEW;  SIMPLEX.  . . . 

313  CONTINUE 

CALL  IMTST  (N1  ,NMAX1,. IFLAG,  IND) 

IF (IFLAG) 506, 507,506 
507  CONTINUE 

DO  315  I— 1,NX 

315  XX (I, JG)-X(I) 

IF (NY) 320, 320, 321 
321  CONTINUE 

DO  318  I-1,NY 
318  Y.Y  (I,  JG)  — Y  (I) 

320  CONTINUE 
FF  ( JG)  — F 

C  .....  DO  INTERMEDIATE  PRINTING  IF  REQUIRED  . . 

IF  (NIT.-IPRT)  317,  510, 510 

510  CALL  OPTPR(4) 

CALL  OPTPR(3) 

IPRT-IPRT+NFREQ 
GOTO  317 

C  .....  PRINT  ERROR  MESSAGE  AFTER  CONSTRAINT'  VIOLATION  IN  IMTST.  ... 
500  WRITE  (  6,  1002): 

GOTO  555 
502.  CALL  FAIL  (1) 

GOTO  555 
504  CALL  FAIL (2) 

GOTO  555 

506  CALL  FAIL (3) 

GOTO  555 

511  WRITE (6, 1004)  NIT 
WRITE (6, 1001)  NIT 
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CALL  OPTPR (3) 

CALL  OPTPR (2) 

GO  TO  519 

PRINT  TEMPERATURE  HISTORY  FOR  CURRENT  TRAY  DESIGN 

518  CALL  OPTPR  (1 ) 

WRITE ( 6, 10 00) NIT 

519  WRITE (6, 1005) 

TO  -  TI 

T1  "  TR 
TW  -  TC 
TMG  “  THEAT1 
DO  527  K  -  1,3 

CALL  HEAT (HJ (K) , FH (K) ,T0,T1, -1. ,  TMG, 251 ,DEL,TM1,TT1) 
TG  -  TT1 (251) 

CALL  COOL  (CJ  (K) ,  C  (K) ,  TL,  TG,  TW,  TM2,  T2) 

521  CALL  COOLA(CJ(K),C(K) ,TL,TG,TW,YM3,T3,Z) 

DO  523  K1  -  11,251,10 
523  WRITE (6, 1006)  TMl(Kl),  TTl(Kl) 

DO  525  K2  -1,7 

TIME2  -  TMl (251)  +  TM2(K2) 

525  WRITE (6, 1006)  TIME2,  T2(K2) 

DO  527  K3  -  1,7 

TIMES  -  TMl (251)  +  TM2(7)  +  TM3(K3) 

WRITE (6,1006)  TIMES,  T3(K3) 

527  CONTINUE 

CALCULATE  £  PRINT  THE  DIMENSIONS  OF  THE  TRAY  ^ 

DO  612  1-1,3 

XLL(I,3)  -  (X (2)  -  READ) /2. 

612  CONTINUE 

XLL (3, 3)  -  (X( 2)  -  HEAD  -  2.*X(l))/2. 

XLL  (1, 1)  -  X(3)/2. 

XLL (1,2)  -  X (6) / ( 4 .*XLL (1, 1) *XLL (1,3))  /  2. 

CHECK  -  0.3  *  XLL (1,1) 

IF (XLL (1,2) . GE . CHECK)  THEN 
GOTO  61 4  ' 

ELSE 

XLL (1,1)  -  SQRT(X(6)/(8.*0.3*XLL(1,3})) 

XLL (1,2)  -  0.3  *  XLL (1,1) 

ENDIF 

614  AREA2  -  X(5)  /  (2 . *XLL (2, 3) ) 

AREA3  -  X(4)  /  (2. *XLL (3, 3) ) 

A  -  4.* (XLL(l,l)-0. 004-EDGE) 

B  -  -4. *EDG£* (XLL (1,1) -0. 004-EDGE) -AREA2-AREA3 

Cl  -  EDGE  *  AREA2 

root  -  SQRT (B*B  -  4.*A*C1) 

XLL (2, 2)  -  <-l.*B  +  root)  /  (2. *A) 

XLL  (2,1)  -  (X (5) / (4 . *XLL (2,2) *XLL (2, 3) ) ) /2 . 

XLL  (3,  2)  -  XLL  (2,  2)  EDGE 

XLL  (3,1)  -  XLL (1,1)  -  XLL (2,1)  -  0.004  -  EDGE 

DO  529  I  -  1,3 

DO  529  J  -  1,3 

XLL (I, J)  -  2.0  *  XLL (I, J) 

529  CONTINUE 

XLL(3, 3)  -  X (2)  -  2. *X (1) 

XLL (1,1)  -  2.  *  XLL (1,1) 

XLL (1, 2)  -  2.  *  XLL (1,2) 

XLL (2, 1 )  -  2.  *  XLL (2, 1 ) 

XLL (2,2)  -  2.  *  XLL (2,2) 

XLL (3, 1)  -  2.  *  XLL ( 3, 1) 
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C  XLL<3,2)  -  2.  *  XLL (3, 2) 

XDO  -  XLL (3/1)  +  2 . *EDGE 
YDO  =  XLL (3, 2)  +  2 . *EDGE 
ZDO  -  XLL (3, 3) 

VDO  -  XDO  *  YDO  *  ZDO 
WRI TE {  * ,  * )  '  * 

WRI TE ( * , * )  *  ENTREE  COMPARTMENT  DIMENSION '■  ,  {XLL (1,1) , 1-1, 3 ) 

WRITE ( * , * )  ' STARCH  COMPARTMENT  DIMENSION ' ,  (XLL (2,1),  1-1 , 3 ) 

WRITE {*,*)  'DESSERT  COMPARTMENT  DIMENSION' , (XDO, YDO, ZDO) 

WRITE (*,*)  'DIMENSION  OF  INNER  DESSERT  TRAY', (XLL (3, I) , 1-1, 3) 
WRITE (*,*)  'VOLUME  OF  (OUTER)  DESSERT  COMPARTMENT ', VDO 
_  555  STOP 

C  .  FORMAT  STATEMENTS  . 

1000  FORMAT  (/'  ', 'PROCEDURE  HAS  CONVERGED  IN', 14, »  ITERATIONS.'/ 

**  THE  SOLUTION  IS  AS  FOLLOWS:') 

1001  FORMAT  (/'  ', 'PROCEDURE  HAS  NOT  CONVERGED  IN', 14,*  ITERATIONS.'/ 
*'  '  ,  'THE  CURRENT  TRIAL  SOLUTION  AND  SIMPLEX  IS  AS  FOLLOWS:') 

1002  FORMAT  (/'  ','BASE  SET  OF  VARIABLES  VIOLATES  SOME  CONSTRAINT.') 

1003  FORMAT  (/'  ', 'ITERATION  O') 

1004  FORMAT  {/'  ','NOT  MUCH  IMPROVEMENT  COULD  BE  ACHIEVED  AFTER  ', 

*,  14, ' th  ITERATION. ') 

1005  FORMAT (//'  ',5X, 'AT  TIME  -  min. *, 5X, 'TEMP .  -  DEG.  C. ') 

1006  FORMAT  ( '  ' , 5X, FI  5 . 3, 5X, FI  5 . 3) 

3001  FORMAT (6X, 7E1 5.5) 

END 


Read  input  data  for  main  optimization  program 


SUBROUTINE  OPTRD 


CHARACTER  NTITL*  4  7 , NAMEF *  5 , NAMEX  (12 )  *  5, NAMEY (30 ) *  5 , NAMEP (1 ) *  5  , 
•OLD *2 


COMMON/OPT/  F,X  (12) ,XU (12)  ,  Y  (30)  ,  P  (1) ,  NIT 
COMMON/STORE/  NX,NY,NP, XL (12) , YL (30) , YU (30) , 

*XC (12) ,XX (12, 24) , YY (30,24 ) ,FF(24),  JG, 

•ALPHA,  BETA,  KMAX, MAXIT,  FR,  FA,  FDEV,  FMIN,  NFREQ 
COMMON/ ASTORE /  NTITL, NAMEF , NAMEX , NAMEY , NAMEP , OLD 
. . .  READ  BASIC  DATA  . 


100 

113 

101 

112 


115 

102 

114 


1000 

1001 

1002 

1003 


OPEN ( 5 , FILE- ' OPT3 . DAT ' , STATUS- *  OLD • ) 
READ { 5 , 1 000 ) NTITL, OLD 
READ (5, 1001) NX, NY, NP, MAXIT, NFREQ 
DO  100  1-1 , NX 

READ  (5, 1002) NAMEX (I) ,XL(I) ,XU(I)  ,X  (I) 
IF (NY) 112,112, 113 
DO  101  I— 1,NY 

READ (5, 1003) NAMEY (I), YL (I ) , YU (I ) 
CONTINUE 

IF (NP) 114,114,115 

DO  102  I— 1 , NP 

READ (5, 100 3) NAMEP (I)  ,P (I) 

CONTINUE 

READ (5, 1 003) NAMEF, FR,  FA 
CLOSE (5) 

RETURN 

. .  FORMAT  STATEMENTS  . 

FORMAT (A4 7, A3) 

FORMAT (715) 

FORMAT (A5, 3F10 . 6) 

FORMAT (A5,3F1 0.4) 

END 


Print  intermediate  results  and  optimal  design  specifications 
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SUBROUTINE  OPTPR(IARG) 


DIMENSION  NINT (50) 

CHARACTER  NTITL*47, NAMEF* 5, NAMEX (12) *5, NAMEY (30) *5, NAMEP (1)*5, 
*OLD*2 

COMMON/OPT/  P, X (12) ,XU (12) , Y (30) , P (1) ,NIT 
COMMON/STORE/  NX, NY, NP, XL (12) , YL (30)  ,  YU (30) , 

*XC (12) , XX (12, 24) , YY (30/ 24 ) , FF  (24) ,  JG, 

♦ALPHA, BETA, KMAX, MAXIT, FR, FA, FDEV, FMIN, NFREQ 
COMMON/ASTORE/  NTITL,  NAMEF, NAMEX,  NAMEY, NAMEP, OLD 
DATA  NINT/1, 2,3,4, 5, 6,7,8,9,10,11,12,13,14,15,16,17,10,19,20,21, 
*22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42, 
*43,44,45,46,47,48,49,50/ 

GOTO  (1,2,3,  4,5,  6),IARG 
1  CONTINUE 


C  .  PRINT  TITLE  . 

WRITE (6, 2000) NTITL 
RETURN 

2  CONTINUE  \ 

C  .  PRINT  TRIAL  SOLUTION  AND  LIMITS  . 

WRITE (6, 2002) 

WRITE (6,2003) 

DO  200  1*1, NX 


200  WRITE(*, 2004)NAM£X (I) , XL (I) , XU (I) , X (I) 

IF (NY) 201, 201, 202 

202  WRITE (6, 2005) 

WRITE (6, 2003) 

DO  203  1*1, NY 

203  WRITE (6, 2004) NAMEY (I) , YL (I) , YU (I)  ,  Y  (I) 

201  CONTINUE 

IF (NP) 204, 204, 205 

205  WRITE (6, 2011) 

WRITE (6, 2012) 

DO  206  1*1 , NP 

206  WRITE  (6, 2004)  NAMEP  (I)  ,  P  (I) 

204  CONTINUE 
WRITE ( 6, 2010) 

WRITE (6, 2006) 

WRITE ( 6, 2004 ) NAMEF, F,  FR,  FA 
RETURN 
3  CONTINUE 

C  .  PRINT  VALUES  OF  VARIABLES  AT  VERTICES  OF  CURRENT  SIMPLEX 

XMAX1-XMAX+1 
WRITE(6,  2007 ) KMAX1 

C  . PRINTING  DONE  IN  GROUPS  OF  SEVEN  ..... 

KK-1 

KKK-7 

400  CONTINUE 
KKKK-KKK 

IF (KKK . GE . KMAX1 ) KKK-KMAX1 
IF (KKK.EQ. KMAX1) KKKK-KKK-1 
WRITE (6, 2008) (NINT (I ) , I*KK, KKK) 

DO  301  1*1, NX 
XX (I, KMAX1) *XC (I ) 

301  WRITE (6, 2004) NAMEX (I),  (XX  (I,K) ,K-KK, KKK) 

IF (NY) 303, 303,304 

304  DO  305  1*1, NY 

305  WRITE (6, 2004 ) NAMEY  (I) ,  (YY (I, K) , K*KK, KKKK) 

303  rOUTTMTIF 

WRITE (6, 2004) NAMEF, (FF (K) , K-XX,KKKK) 

IF  (KKK. EQ.KMAX1) GOTO,  401 

KK-KK+7 

KKK-KKK+7 
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GOTO  400 
401  CONTINUE 
RETURN 

4  CONTINUE 

C  . PRINT  RESULTS  AT  CURRENT  ITERATION  ...... 

WRITE {*,*)  1  1 

WRITE {6, 2009) NIT, JG,FDEV, FMXN 

RETURN 

5  CONTINUE 
RETURN 

6  CONTINUE 
RETURN 

■  C  .  FORMAT  STATEMENTS  . 

2000  FORMAT {'  *,A47) 

2002  FORMAT <•  ',' INDEPENDENT  VARIABLES') 

2003  FORMAT { '  ' , IX, ' NAME ' ,  4X, ' LOWER  BOUND ' , 4X, ' UPPER  BOUND 1 , 10X„ 
♦'VALUE'/) 

2004  FORMAT  {'  ' , AS, 1P7E15 . 5) 

2005  FORMAT { '  ' , ' DEPENDENT  VARIABLES') 

2006  FORMAT { '  ' , IX, ' NAME ' , 1CX, 'VALUE ' , 8X, 'REL  DEV',8X, 'ABS  DEV'/) 

2007  FORMAT  {'  ',  'VARIABLES  IN  SIMPLEX  (CENTROID  IS  VERTEX*  ,  13,.' )}'  ) 

2008  FORMAT { '  ', 'VERTEX' , 114, 7115) 

2009  FORMAT  { '  '  ,  '  ITERATION'  ,  14,  '  ENTERING  VERTEX  '  ,_I3>'  FDEV  -  • ,  1EE12..  4, 
*'  FMIN  ,1PE12.4) 

2010  FORMAT  { '  '  ,  'OBJECTIVE  FUNCTION.' ) 

2011  FORMAT ( '  ' , ' PARAMETERS ' ) 

2012  FORMAT { '  ' , IX, ' NAME ' , 10X,  ' VALUE  * / ) 

END 

Test  for  violation,  of  implicit  constraints- in  main:  program*! 
SUBROUTINE  IMTST <N,NMAX, IFLAG, IND) 

CHARACTER  NTITL*  4  7,  NAMEF*  5 ,  NAMEXU2)  *5,  KAMEY  {  3D)  *5,  NAMEP{1)*5> 
♦OLD*2 

COMMON/OPT/  F , X  <1 2 ) , XU <1 2) , Y  < 30 ) , P1X ) , NIT " 

COMMON/STORE/  NX,NY,NP,XL(12) , YL(30) , YU(30), 

*XC  (12 ) ,XX (12, 24) , YY (30, 24) ,FF(24) ,  JO, 

♦ALPHA, BETA  >  KMAX, MAXIT, FR, FA , FDEV, FMIN/ NFREQ 
COMMON/ASTORE/  NTITL, NAMEF, NAMEX, NAMSY,  NAMEP, OLK 
I FLAG -0 
N-l 

.  EVALUATE  OBJECTIVE"  FUNCTION- AND  DEPENDENT  ' VARIABLES. - - 

108  CALL  MODEL (IND) 

IF (NY) 300,300,301 
300  RETURN 
301. CONTINUE 

.  TEST  TO  SEE  IF  ANY  IMPLICIT.  CONSTRAINT,  HAS'*  BEEN  VIOLATED  ..... 

DO  103  I-1,NY 
IF (Y (I )-YL(I) >101,102,102 

102  IF(YU(I)-Y(I))101, 103,103 

103  CONTINUE 
RETURN 

.  BECAUSE  TRIAL  POINT  VIOLATES  IMPLICIT.  CONSTRAINTS,  MOVE; .‘TO.: 

FRACTIONAL  DISTANCE  BETA  FROM  CENTROID:  OF.  OTHER  POINTS:; . 

101  DO  104  i«l,NX 

104  X (I) -XC (I) +BETA* (X (I ) -XC (I) ) 

IF (N-NMAX) 106, 107,1 07  ' 

106  N-N+l 

GOTO  108  > 

. TRIAL  POINT  DID  NOT  SATISFY  IMPLlCIT’"CONSTRAINT  AFTER  NMAX 

MOVES  TOWARD  CENTROID  OF  OTHER  POINTS  ...... 

107  IFLAG-l’ 
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return 

END 

Print  error  messages  for  main  program 


SUBROUTINE  FAIL (NARG ) 


WRITE (6,1000)NARG 
CALL  OPTPR (2) 

CALL  0PTPR{3) 

RETURN 

FORMAT ( '  • , • ERROR  ENCOUNTERED  IN  OPTIMM' / *  • , ■ TYPE ',13, 
*'  CONSTRAINT  VIOLATED') 

END 

Generate  random  numbers  for  optimization  iterations 


SUBROUTINE  GGUBS  (DSEED , R) 


REAL  R 

DOUBLE  PRECISION  DSEED 


SPECIFICATIONS  FOR  LOCAL  VARIABLES 


INTEGER 

DOUBLE  PRECISION 


D2P31M, D2P31 

D2P31M- (2**31)  -  1 

D2P31  -{2**31) {OR  AN  ADJUSTED  VALUE) 
DATA  D2P31M/2147483647 .  DO/ 

DATA  D2P31/2147483648.D0/ 

FIRST  EXECUTABLE  STATEMENT 
DSEED  -  DMOD (16807 . D0*DSEED,D2P31M) 

R  -  DSEED  /  D2P31 

RETURN 

END 


Estimate  thermal  processing  lethality  and  time-temperature  history 
for  each  of  the  compartments  in  the  tray 


SUBROUTINE  MODEL (IND) 


CHARACTER* 15  MEALS (3) 

DIMENSION  XL (3) ,X (4) , TTHEAT  (3) , BI (3) , FIMM (3) 
COMMON/OPT/  OBJ, XI (12) ,XU(12) , Y (30) ,  PAR{1) , NIT 
COMMON /CONDI /EDGE, G, HEAD, V (3) , XLL (3,  3) 

COMMON/ COND /  XKINS,TCOOL, TREF (3),XX{3,3),ZZ{3),FP<3) 
*, XK  (3) , ALPHA (3) , HTA 

COMMON/FANDJ/C (3) , CJ (3) , FH (3) , HJ{3)  ,  THEAT1,  TI, TR, TC 
COMMON/ TBI STORY/  TRE 
COMMON/TEMPT/  T  (300) , TM (300) 

C  .  INPUT  DATA . 

C  XI (1);  INSULATION  THICKNESS  OF  DESSERT  TRAY 
C  XI (2);  HEIGHT  OF  THE  WHOLE  TRAY 
C  XI  (3),*  LENGTH  OF  THE  ENTREE  TRAY 

p  i  ft  BPTWFFN  a Y9 

C  V (I) ?  VOLUME  OF  EACH  TRAY  (INNER  VOLUME) 

C  XLL (I, J) !  DIMENSION  OF  ITH  TRAY  (INNER) 

C 

C  CONSTRAINTS  FOR  TRAY  DESIGN 

C  LENGTH:  <-  11  INCHES 

C  DEPTH:  <-  1 .1811  INCHES  (3  CM) 

C  INSULATION  THICKNESS:  <-  0.6  CM 

C  GAP  BETWEEN  COMPARTMENTS :  0 . B  CM 
C  WIDTH  OF  SEALING  EDGE:  0 . 6  CM 
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HEIGHT  OF  HEADSPACE:  0 . 6  CM 

IF (IND.EQ.1.0R.IND.EQ. 3)  GO  TO  10 
GO  TO  20 

10  OPEN (UNIT-7, FILE-'DESIGNl. DAT', STATUS»•OLD, ) 

READ  (7,1)  G 

READ (7,1)  HTA, TCOOL , XKINS 
READ (7,1)  TR, TI,  TC 
DO  11  1-1,3 
READ (7, 2)  MEALS (I) 

READ (7,1)  XX(I,1)  ,XX(I,2)  ,XX(I,3) 

READ (7,3)  XK(I) , ALPHA (1) 

11  READ (7, 1)  ZZ (I) ,TREF (I),FP(I) 

CLOSE  (UNIT-7) 

WRITE (6, 5)  (MEALS (II),  11-1,3) 

.  CALCULTE  THE  DIMESION  OF  THE  TRAYS  . 

HEAD  -  0.006 

IF (TREF(3) .EQ. 100.0)  THEN 
EDGE  -  0.004 
ELSE 

EDGE  -  0.0 
XI(1)  -  0.0 
ENDIF 
NIT  -  0 
20  CONTINUE 
20  DO  12  1-1,3 

XLL (1,3)  -  (XI  (2)  -  HEAD) /2. 

12  CONTINUE 

XLL (3, 3)  -  (XI (2)  -  HEAD  -  2.*XI(l))/2. 

XLL  (1,1)  -  XI (3) /2. 

XLL (1,1)  -  0.1858  /  2. 

XLL  (1, 2)  -  XI  (6)  /  (4 .  *XLL  (1, 1)  *XLL  (1,  3) )  /  2  . 

XLL (1,2)  -  0.05575  /  2. 

CHECK  -  0.3  *  XLL (1,1) 

IF (XLL (1,2) .GE. CHECK)  THEN 
GOTO  14 
ELSE 

XLL (1,1)  -  SORT (XI (6) / (8 . *0. 3*XLL (1,  3) ) ) 

XLL (1,2)  «  0.3  *  XLL (1, 1) 

ENDIF 

14  AREA2  -  XI  (5)  /  (2.*XLL (2,3) ) 

AREA3  -  XI  (4)  /  (2. *XLL (3, 3) ) 

A  -  4.* (XLL (1,1) -0.004-EDGE) 

B  -  -?4  .  *EDGE*  (XLL  (1, 1)  -0 . 004-EDGE)  -AREA2-AREA3 
Cl  «  EDGE  *  AREA2 
root  -  SQRT(B*B  -  4.*A*C1> 

XLL (2, 2)  -  (— 1 . *B  +  root)  /  (2. *A) 

XLL (2, 2)  «  0.1203  /  2. 

C  XLL  (2,1)  -  (XI  (5)  /  (4  . *XLL  (2, 2) *XLL (2,  3)  )  )"/2 . 

XLL (2,1)  -  0.07050  /  2. 

XLL (3, 2)  -  XLL (2, 2)  -  EDGE 
C  XLL  (3,1)  «  XLL (1,1)  -  XLL (2,1)  -  0.004  -  EDGE 
XLL (3, 1)  -  0.1073  12.-  EDGE 
C  20  DO  12  1-1,3 

C  XLL (1, 3)  -  X  (7-1)  /  (8.  *  XLL(I,1)  *  XLL(I,2) ) 

C  12  CONTINUE 

XLL (1,3)  «  XI(6)  /  (8.  *  XLL (1,1)  *  XLL (1,2)) 

XLL (2, 3)  -  XI (5 )  /  (8.  *  XLL (2,1)  *  XLL(2,2)) 

XLL (3, 3)  -  XI (4)  /  (8.  *  XLL (3,1)  *  XLL (3, 2)) 

Y (1) — 4 . *XI (2) * (XLL (3,1) +EDGE) * (XLL (3, 2) +EDGE) 

IF  (XLL (2, 2)  .LE.  0.0. OR. XLL (3,  3)  .LE.0.0)  Y(D— 1000. 
IF(Y(1) .LT.0.0)  RETURN 
Y (2 )  -  XLL(2, 2)*2. 
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Y{3)  -  XLL (3, 3) *2 .  +  HEAD  +  2.  *  XI(1) 

C  .  CALCULATE  PROCESSING  TIME  FOR  EACH  MEAL  .  V 

TO  —  TI 
T1  -  TR 
TW  -  TC 

DO  200  I  -  1,  2 
TK-XK(I) 

AL-ALPHA(I) 

Z-ZZ (I ) 1 
TRE-TREF (I) 

DO  100  J-1,3 
XL (J) —XLL (I, J) 

X(J)-XX(I,J) 

C.  WRITE (6,*)  XL ( J) 

100  CONTINUE 
HT  -  HTA 

CALL  EIGEN (AL, XL, TK, HT, BI,FH (I) , HJ (I) ) 

CJ(I)  -  1.4 
C{I)  “  FH  (I) 

CALL  PROCESS (TO, T1,TW,HJ (I) ,FH (I) , CJ (I ) , C (I) , 2, -1 . , -1 . ,FP (I) , THEAT1 ,  FVHUE 
IF(THEAT1.GE.300. )  GO  TO  203 
TTHEAT ( I ) -THEAT1 
FIMM (I ) — FVALUE 

C  WRITE  (6,  *■)  HJ  (I)  ,  FH  (I)  ,  TTHEAT  (1) ,  FIMM  (I) 

200  CONTINUE 

IF (TTHEAT (1) . GT. TTHEAT (2) )  THEN 
THEATl-TTHEAT(l) 

FIMAX-FIMM(l) 

IMAX-1 

ELSE 

THEAT1 “TTHEAT (2) 

FIMAX«FIMM(2) 

IMAX-2 

ENDIF 

201  Y  (4)  -  THEAT1 

203  DO  207  I  -  1,3 

IF (I.EQ.IMAX)  GOTO  205 
TX-XK(I) 

AL-ALPHA(I) 

Z-ZZ  (I) 

TRE-TREF (I) 

DO  204  J-1,3 
XL ( J) -XLL (I, J) 

X  (J)-XX  (I,  J) 

204  CONTINUE 

IF ( I . NE . 3 )  THEN 
HT  -  HTA 
ELSE 

HT-1 . / (1 . /HTA+XI (1 ) /XKINS) 

ENDIF 

C 

C  ESTIMATE  THE  STERILIZING  VALUES  FOR  ALL  THE  FOODS  BASED  ON  THE 
C  PROCESSING  TIME  THEAT1  FOR  THE  FOOD  WHICH  IS  LEAST  OVER-PROCESSED. 

C 

CALL  EIGEN (AL, XL, TK, HT, Bl, FH (1) ,  HJ  (I ) ) 

CJ(I)  -  1.4 
C(I)  -  FH(I) 

CALL  PROCESS  (TO,  Tl,  TW,  HJ  (I)  ,FH  (1),CJ(I),C(I),Z,-1.  ,THEAT1,  -1 . ,  -1 . ,  FVALTE) 

Y  (1+4)  -  FVALUE 
Y (8)  -  T (251) 

GO  TO  207 

205  Y (1+4 )  -  FIMAX 
207  CONTINUE 
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OBJ-ABS  (Y  (5)  -FP  (1) )  +ABS  (Y  (6)  -FP  (2) )  +ABS  (Y  (7)  -FP  (3)  ) 
208  CONTINUE 
RETURN 

C  .  FORMAT  STATEMENTS  . 

1  FORMAT (4F1 0.5) 

2  FORMAT (A10) 

3  FORMAT (FI 0 . 4 , El 0 . 4 ) 

5  FORMAT (’  MEAL  NAMES  ARE  *  ,3(A7,2X)) 

END 


Calculate  f  and  j  values  for  each  meal  in  the  compartment  tray 


SUBROUTINE  EIGEN (AL, XL, TX, HT, BI, FBI, HJX ) 


DIMENSION  BI ( 3 ) , XL ( 3 ) , BETA1 ( 3 )  ,  FI  ( 3 ) ,  X  JI  ( 3 ) 

COMMON /THI STORY/  TRE 

FNF (X, BI1) -X*TAN (X) -BI1 

DO  1240  1-1,3 

BI (I) — HT*XL (I) /TK 

BETA1 (I)  -  0.0 

STP-3. 141592654 

STP1-0. 001 

STP2-3. 141592654/2. -0.001 

XCRIT-0 .00001 

FCRIT-0 . 0001 

IF(BI  (I)  .EQ.0.0)  THEN 

BETA1 (I) -0.0 

GO  TO  1225 

ELSE 

GO  TO  1200 
ENDIF 

1200  X1-STP1 
X2-STP2 
I COUNT  -  1 

1210  FI— FNF {XI , BI ( I ) ) 

F  2— FNF ( X2 , BI ( I ) ) 

1215  FMULT-F1*F2 

IF ( FMULT . GT . 0 . 0 )  GOTO  1225 
C  .  BISECTIONAL  METHOD  FOR  ESTIMATION  OF  ROOTS 

1000  XERR— ABS (XI -X2 ) /2 . 0 
X3— (X1+X2) /2 . 

F3-FNF (X3 ,  BI (I) ) 

IF (I.GT.200)  GOTO  1220 

IF (XERR.LT.XCRIT)  GO  TO  1220 

IF (ABS (F3) . LT.FCRIT)  GO  TO  1220 

IF (F3*F1 . LE . 0 . 0)  THEN 

X2-X3 

F2-F3 

ELSE 

X1-X3 

F1-F3 

ENDIF 

I COUNT  -  I COUNT  +  1 
IF(ICOUNT.GT.200)  WRITE ( 6, 1) BI (I) 

GO  TO  1210 

1220  BETAl(I)  -  X3 
GO  TO  1230 

1225  ICOUNT  -  ICOUNT  +  1 

IF ( ICOUNT . GT .200)  WRITE(6,1)  BI(I) 

XI  -  STP  +  STP1 
X2  -  STP  +  STP 2 
FI  -  FNF (XI, BI(I) ) 

F2  -  FNF (X2, BI (I) ) 
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GO  TO  1215 

1230  FI (I )  -  LOG  (10.0)  *  XL ( I ) *XL ( I )  /  (BETA1 (I) *BETA1 (I) *AL)  /  60. 

XJI(I)  -  2.0  *  SIN (BETA1 (I) )  /  (BETA1  (I)  +SIN (BETA1 (I ) ) *COS (BBTA1 (I ) ) ) 

C  WRITE  (6,*)  BI(I),  BETA1 (I) ,  XL (I),  FI  (I),  XJI(I) 

1240  CONTINUE 
F  -  0.0 
BJI  -  1.0 
DO  1260  II  -  1,3 
F  -  F  +  1.0  /  FI (II ) 

BJI  -  HJI  *  XJI(Il) 

1260  CONTINUE 

FBI  -  1.0  /  F 
-  1280  RETURN 

1  FORMAT ('  DONT  HAVE  ROOT  OF  TRANSCENDENTAL  EQUA. • , FI 2 . 4) 

END  _  >•  •  . 

ESTIMATE  PROPER  HEAT  PROCESSES  OF  RETORTABLE  PLASTIC  PACKAGE 
FOR  MULTIPLE  FOODS.  DEVELOPED  MAINLY  BASED  ON  THE  PROGRAMS  BY 
DR.  K.  HAYAKAWA, 

ADVANCES  IN  FOOD  RESEARCH;  VOL.  XX.  PP.  75-141,  1977. 

THIS  SUBROUTINE  SOLVES  2  TYPES  OF  PROBLEMS.  THEY  INCLUDE: 

TYPE  B:  GIVEN  Fp,  Solve  for  tb  (thermal  processing  time) 

TYPE  A:  GIVEN  tb.  Calculate  the  equivalent  Fp 

********************************  nomenclature  ********************************* 
C  Slope  index  of  cooling  curve 
Cj  intercept  coefficient  of  cooling  curve 
FH  Slope  index  of  heating  curve 
HJ  Intercept  coefficient  of  heating  curve 
FP1  Target  sterilizing  value 

FPP  Estimated  sterilizing  value  for  given  TG  or  TMG 
TO  Initial  temperature  of  food  (Deg.  C.) 

T1  Holding  temperature  heating  medium  (Deg.  C.) 

TANS  Length  of  heating  phase  to  be  estimated.  A  thermal  process  with  TANS 
minutes  of  processing  time  produces  a  target  sterilizing  value  FPl 
TG  Food  temperature  at  end  of  heating  phase  of  thermal  process. 

When  a  problem  is  for  estimating  TANS  or  when  an  actual  TG  value 
is  given.  Set  TG  »  -  1.0. 

TMG  Length  of  heating  phase. 

When  a  problem  is  for  estimating  TANS  or  when  an  actual  TG  value 
is  given,  set  TMG  »  -1.0 
TW  Cooling  medium  temperature  (Deg.  C.) 
******************************************************************************* 


SUBROUTINE  PROCESS (TO, T1 , TW, HJ, FH, C J, C, Z , TG, TMG, FPl ,  TANS , FPP) 


COMMON/COMA/ABC (7) 

COMMON/ COMH/H (7) 

COMMON /THIS TORY /  TRE 

COMMON/TEMPT/  T (300) , TM (300) 

ABC  (1)— 1.0 

ABC(2)— 0.8302239 

ABC(3)  — 0. 4688488 

ABC(4)-0.0 

ABC (5) *0.4688488 

ABC (6) -0.8302239 

ABC(7)-1.0 

H(1)«0. 0476190 

H(2)-0. 2768260 

H(3)»0. 4317454 

H(4)-0. 4876190 

H(5)-0. 4317454 
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H (6) “0 . 2768260 

H(7)-0. 0476190  ‘ 

DO  141  J-1,300 
T(J)-0. 

141  TM(J)-0. 

FPP-0 . 

YFP  -  0. 

YFP1  -  0. 

YFP2  -  0. 

TANS— 0 • 

IF (FP1 . LE. 0 . )  GO  TO  146 

This  is  a  Type  B  Problem.  *  1 

It  solves  for  the  processing  time  TANS  to  achieve  target  Fp. 

TMGl  -  FP1 
FPP  -  0. 

TMG2  -  40.  *  FP1 

142  TMG  -  TMGl 

CALL  HEAT (HJ, FH, TO, Tl, -1 . 0, TMG, 251, DEL, TM, T) 

WRITE (6,*) hj, fh, t0, tl, TMG, DEL, TM (2 51) , T (251) 

CALL  SIMP  (T, DEL, 251, Z,FPH1) 

WRITE (6, *) T (251) ,del,2,FPHl 
CALL  FCOL (FPC, CJ, C, T (251) , TW,  Z) 

WRITE (6,*) FPC 
FPP1  -  FPH1  +  FPC 
YFP1  -  FP1  -  FPP1 

143  TMG  -  TMG 2 

CALL  HEAT (HJ,FH, TO^Tl, -1 . 0, TMG, 251,  DEL, TM,  T  ) 

CALL  SIMP (T, DEL, 251, Z,  FPH2) 

CALL  FCOL (FPC, CJ, C, T (251) ,  TW, Z) 

FPP2  «  FPH2  +  FPC 
YFP2  -  FP1  -  FPP2 
TMG  -  (TMG1+TMG2)  /  2.0 

CALL  HEAT (HJ,FH, T0,T1, -1 . 0, TMG, 251, DEL, TM, T) 

CALL  SIMP (T, DEL, 251, Z,FPH) 

CALL  FCOL (FPC, CJ, C, T{251) , TW, Z) 

FPP  -  FPH  +  FPC 
YFP  «  FP1  -  FPP 
write  (6,*)  tmg,  fpp 

IF ( (YFP1*YFP) . GT. 0 • .AND. (YFP2*YFP) . GT . 0  .  )  GOTO  148 

IF (ABS (FPP-FP1) . LE.0.1)  GO  TO  144 

YCHECK  -  YFP1  *  YFP 

IF (YCHECK.LE.O.0)  THEN 

TMG2  -  TMG 

GO  TO  143 

ELSE 

TMGl  -  TMG 
GO  TO  142 
ENDIF 

144  TANS  -  TMG 
GO  TO  150 

r 

This  is  a  type  A  problem.  J 

Given  heating  time,  solve  for  actual  Fp. 

146  TG  -  Tl  -  HJ  *  (T1-T0)‘  *10.**(-TMG  /FH) 

CALL  HEAT (HJ,FH, TO, T1,TG, -1 . 0, 251,  DEL, TM,  T) 

CALL  SIMP (T, DEL, 2 51, Z, FPH) 

CALL  FCOL (FPC, CJ,C,T (251 ) ,TW,Z) 

FPP  -  FPH  +  FPC 
GO  TO  150 
148  WRITE (6, 149) 
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149  FORMAT ( 1  PROCESSING  TIME  IS  LARGER  THAN  40  Fp.',/, 

*•  • Please  modify  the  program! 1 ) 

150  RETURN 
END 

C 

c  Calcualte  food  temperatures  on  a  heating  curve 
C  The  equations  were  updated  (from  the  1977  Reference) 

C  with  reference  to  Lekwauwa,  A.  N.  and  Bayakawa,  K. ,  1986. 

C  J.  Food  Sci.  51(4):  1042-1049,  1056. 

C 

c  *****************************  nomenclature  *************************** 
C  DEL  Time  increment,  for  heating  phase 

C  ntrm  Number  of  food  temperatures  to  be  estimated.  2  <  NTRM  <■  300 

C  T  Food  temperature  estimated  (Deg.  C.) 

C  TM  Heating  times  at  which  food  temperatures  reach  to  T's 

0  *********************************************************************** 

C  - - - - - 

SUBROUTINE  HEAT  <HJ, FH, to, T1,TG, TMG,NTRM, DEL, TM, T) 

C  - 

COMMON /TH I STOR¥ /  TRE 
DIMENSION  T (300) , TM (300) 

AN (A, AF,AJ)  -  (A/AF  -  ALOGIO(AJ))  /  (A/AF) 

BA(AJ,A,AF,BN)  -  A*  (A/AF  -  ALOG10 (AJ) ) ** (BN) 

TA (TMA, BAA, AAN) — Tl- (T1-T0) *EXP (-2 . 30259*EXP ( ALOG ( 

*TMA/BAA) * (1 . /AAN) ) ) 

TIA (BAA, TP, AAN) —BAA* ( (ALOG10 ( (T1-T0) / (Tl-TP) ) )**AAN) 

BB (TLB) - (1 . /TLB) * (ATAN ( (ALOG10 (T1-T0) ) / (ALOG10 (HJ* 

* <T1 -TO) ) -TLB/FH) ) -0.785398) 

TB (BBB, TMB) -Tl- (T1-T0) **  (1 . /TAN <BBB*TMB+0. 785398) ) 

TIB (BBB, TP) - (1 . /BBB) * (ATAN ( (ALOG10 (T1-T0) ) / (ALOG10 (T1 
*-TP)) )-0. 785398) 

BC (TLC) - (1 . /TLC) *ACOS ( ( ALOG10 (HJ* (T1-T0) ) -TLC/FH 
*) / (ALOG10 (T1-T0) ) ) 

TC (BCC,TMC)-T1- (T1-T0) ** (COS (BCC*TMC) ) 

TIC (BCC, TP )-  (1 . /BCC) *ACOS ( (ALOG10 (Tl-TP) ) / (ALOG10 (T1 
*-T0) ) ) 

TD(TMD)-T1-HJ* (T1-T0) *EXP (-2.30259* (TMD/FH) ) 

TID <TP)«FH*ALOG10 (HJ* (T1-T0) / (Tl-TP) ) 

DO  90  1-1,300 
T (I) -0. 0 
90  TM(I)-0.0 
NXX-NTRM-1 

IF(HJ.LT. 0.001) GO  TO  1 
IF (H J . LT .0.40) GO  TO  2 
IF (HJ.LE . 0 . 999999) GO  TO  3 
IF (HJ.LE. 1.00001) GO  TO  7 
IF (HJ.GT. 6500 . 0) GO  TO  4 
GO  TO  6 

1  WRITE (*, 5) 

5  FORMAT (IX, ' TM  £  T  ESTIMATED  BV  SUBROUTINE  HEAT  ARE  QUESTIONABLE 
♦SINCE  JH  <  0.001') 

2  TL  -  FH  *  (0.3913  -  0.3737  *  ALOG10 (HJ) ) 

RN  -  AN(TL,FH,HJ) 

B  -  BA  (HJ,  TL,  FH,  RN) 

IF (TG.LT. 0. 0)GO  TO  8 
TEMPL-TD (TL) 

IF(TG.LE.TEMPL)GO  TO  9 
TMH-TID (TG) 

TH-TG 
GO  TO  10 

9  TMH-TIA(B,TG,RN) 

TH-TG 
GO  TO  10 
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8  IF (TMG . LT . TL) GO  TO  11 
TH-TD (TMG) 

TMH-TMG 
GO  TO  10 

11  TH-TA(TMG,B,FN) 

TMH-TMG 
10  T(1)-T0 
TM(1)-D. 

DEL-TMH/NXX 
T (NTRM)-TH 
TM  (NTRM)  -TMH 
DO  100  1-2, NXX 
TMI-DEL*  (I-l) 

TM(I)-TMI 

IF(TMI.GE.TL)G0  TO  102 
T(I ) -TA (TMI,B,RN) 

GO  TO  100 
102  T(I)-TD(TMI) 

100  CONTINUE 
GO  TO  €0 

3  TL  -  0. 9*FH* <1.-HJ) 

B  -  BB (TL) 

IF (TG . LT. 0.0) GO  TO  19 
TEMPL-TD (TL) 

IF (TG.LE.TEMPL)GO  TO  20 
TMH— TID (TG) 

TH-TG 
GO  TO  21 

20  TMH-TIB <B,TG) 

TH-TG 

GO  TO  21 

19  IF (TMG .LT. TL) GO  TO  22 
TH-TD (TMG) 

TMH-TMG 
GO  TO  21 
22  TH-TB (B, TMG) 

TMH-TMG 

21  T (1) —TO 
TM (1) —0 . 

T (NTRM) -TH 
TM (NTRM) -TMH 
DEL-TMH / NXX 
DO  30  1-2, NXX 
TMI-DEL* (1-1) 

TM(I)-TMI 

IF (TMI . GE. TL) GO  TO  22 
T  (I)  — TB  (B,  TMI.) 

GO  TO  30 
32  T (I ) -TD (TMI) 

30  CONTINUE 
GO  TO  €0 

7  IF (TG, LT. 0 , 0) GO  TO  24 
TMH-TID (TG) 

TH-TG 
GO  TO  35 

34  TH-TD (TMG) 

TMH-TMG 

35  T (1 ) -TO 
TM (1) -0 . 

T  (NTRM)  -T.H 
TM  (NTRM)  -TMH 
DEL-TMH/NXX 
DO  40  1-2, NXX 
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TMI -DEL* (1-1) 

TM(I)-TM1 

Td)-TD(TMI) 

40  CONTINUE 
GO  TO  60 
4  WRITE (*,43) 

43  FORMAT (IX, ’TM  6  T  ESTIMATED  BY  SUBROUTINE  HEAT  ARE  QUESTIONABLE 
♦SINCE  JH  >  6500.0’) 

6  IF (HJ.LE.5.8)  TL  -  0 , 7*FH* (HJ-1 . ) 

IF (HJ. GT. 5.8)  TL  -  1.54  *FH  *ALOG10 (HJ/1 . 8) 

B  -  BC  (TL) 

IF (TG. LT.O . 0) GO  TO  44 
TEMPL-TD(TL) 

IF (TG .LE. TEMPL) GO  TO  45 
TMH-TID(TG) 

TH-TG 
GO  TO  46 

45  TMH-TIC(B,TG) 

TH-TG 

GO  TO  46 

44  IF (TMG.LT.TL)GO  TO  47 
TH-TD(TMG) 

TMH-TMG 
GO  TO  46 
47  TH— TC (B, TMG) 

TMH-TMG 

46  T (1)— TO 
TM(l)-0. 

T (NTRM)-TH 
TM(NTRM)— TMH 
DEL-TMH/NXX 
DO  55  1-2, NXX 
TMI -DEL* (1-1) 

TM(I)-TMI 

IF (TMI .GE.TL)GO  TO  57 
T (I)— TC (B, TMI) 

GO  TO  55 
57  T(I)-TD(TMI) 

55  CONTINUE 
60  RETURN 
END 

ESTIMATE  A  STERILIZING  VALUE  FROM  TWO  FOOD  TEMPERATURES 
DEL  MINUTE  APART  from  each  Other  DURING  THE  HEATING  PHASE 

*****************************  NOMENCLATURE  ****************************** 
delf  Estimated  sterilising  value  (min.) 

TH  Food  temperature  (TH  >  TL) 

TL  Food  temperature  (TL  <  TH) 

z  Slope  index  of  thermal  death  time  curve  (C.  Deg.) 
************************************************************************** 


SUBROUTINE  FDIF (DELF, Tl, TH, TL,DEL,  Z) 


TM-FTG (T1 , TH, TL, 0 . 5*DEL, 0 . , DEL ) 

DELF-DEL/6 . 0* (RT (TL, Z ) +4 . *RT (TM, Z ) +RT (TH, Z ) ) 

RETURN 

END 

C  - - - - - - - 

FUNCTION  RT ( T, Z ) 

C  - — - - 

COMMON / THI STORY /  TRE 

IF (ABS (T-TRE) ,LT.l.E-5)GO  TO  1 
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c 

C 


c 

c 


TRAT- (T-TRE) / 2 
IF (TRAT. LT. -6.0) GO  TO  3 
RT-10.**TRAT 
GO  TO  2 
3  RT-1.0E-6 
GO  TO  2 

1  RT-1.0 

2  RETURN 
END 

FUNCTION  FX  (FA,  FB,  TA,  TB,  TX) 


FX-FA+ (TX-TA)* (FB-FA) / (TB-TA) 

RETURN 

END 


FUNCTION  FTG <T1 , TH, TL,TMG,TML, DEL) 


IF (ABS (TMG-TML) .LE.l.E-5)GO  TO  I 
IF (ABS (Tl-TH) . LE.l.E-5)GO  TO  2 
R-{T1-TH)/{T1-TL) 

IF (R.GE. 0.9999) GO  TO  2 

FTG-T1-  (Tl-TL) *R** { (TMG-TML) /DEL) 

GO  TO  3 

1  FTG-TL 
GO  TO  3 

2  FTG- (TH+TL) /2 . 

3  RETURN 
END 


ESTIMATE  A  STERILIZING  VALUE  FROM  A  COOLING  CURVE 

****************** ***********  NOMENCLATURE  ******  ******* ******** ****** 
FPC  Estimated  sterilizing  value  (min.)  during  cooling  phase 
**************************** ************ *  *  * ##*-**** *  ********  ************ 


SUBROUTINE  FCOL (FPC, CJ, C, TG, TW,Z) 


COMMON/THISTORY/  TRE 
COMMON/ COMA/ ABC { 7 ) 

COMMON / COMH / H ( 7 ) 

DIMENSION  TMC { 7)  ,  TC (7 ) 

DO  1  1-1,7 
TMC (I)-0. 

1  TC  (I)  — 0  . 

IF (ABS (C J-l . 0 ) . LT . 1 . OE-4 ) GO  TO  2 
CALL  COOL (C J, C , TL, TG, TW, TMC,  TO) 

CALL  RATE  (FPA,  TC, Z, 0 . , TL) 

GO  TO  3 

2  FPA— 0 . 

TL-0. 

3  CALL  COOLA (CJ, C, TL, TG, TW,  TMC,  TC,  2) 

CALL  RATE (FPB, TC, Z, TL, TMC (7) ) 

FPC-FPA+FPB 

RETURN 

END 

ESTIMATE  A  STERILIZING  VALUE  FROM  DATA  ON  FOOD 
TEMPERATURE  COLLECTED  AT  UNIFORM  TIME  INTERVALS 

*****************************  NOMENCLATURE  "****** **** *■*•* ***-* *** * **** ** 
DELX  uniform  time  interval  (min. ) 

NO  Number  of  temperature  data  collected 
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Y  Vector  of  temperature  data  (Deg.  C.) 

******** **************************************************** *********** 


SUBROUTINE  SIMP {Y,DELX,NO, Z,FP) 


COMMON/THISTORY/  TRE 
DIMENSION  Y(300) 

NN-NO/2 

NM-NN*2 

IF (NM. EQ.NO) GO  TO  10 

NM-NO 

GO  TO  11 

10  NM-NO -1 

11  IF {NO-3} 1, 2, 3 

1  IF (N0.EQ.2) GO  TO  12 
IF (NO.EQ.l)GO  TO  13 
WRITE (*,14) 

14  FORMAT  {'  ','NO  FP  IS  ESTIMATED  SINCE  NO  <  1  AT  SUBROUTINE  SIMP') 
13  FP-O. 

GO  TO  6 

2  FP— DELX/3. * (RT (Y (1) , Z) +4 . *RT(Y (2) , Z) +RT (Y (3) , Z) ) 

GO  TO  6 

3  FP-RT (Y (1) , Z) +RT (Y (NM) , Z) 

M-NM-1 

FPA-0 . 

DO  4  1-2, M, 2 

4  FPA-FPA+RT (Y (I)  ,  Z) 

IF (NO.EQ.4JGO  TO  15 
FPB-O. 

M-NM-2 

DO  5  1-3, M, 2 

5  FPB— FPB+RT (Y (I) ,  Z) 

GO  TO  16 

15  FP-DELX/3. * (FP+4 . *FPA) 

GO  TO  20 

16  FP-DELX/3. *{FP+ 4. *FPA+2.*FPB) 

IF (NM. EQ.NO) GO  TO  6 

20  FP-FP+DELX/2 . * (RT (Y (NO-1 ) , 2 ) +RT (Y  (NO ) ,  Z) ) 

GO  TO  6 

12  FP-DELX/2. * (RT (Y (1) ,2) +RT (Y (2) ,  Z) ) 

6  RETURN 
END 

CALCULATE  7  TEMPERATURES  ON  A  CURVILINEAR  PORTION  OF 
A  COOLING  CURVE.  THESE  TEMPERATURES  ARE  THEN  USED  TO 
CALCULATE  A  STERILIZING  VALUE  BY  USING  THE  7  POINT 
LOBBATO  QUADRATURE  FORMULA. 


********************************  nomenclature  ************************* 
FC  Slope  index  of  cooling  curve 

*********************************************************************** 


SUBROUTINE  COOL(CJ,FC, TL, TG, TW,  TM,  T) 

C  - 

COMMON/ COMA/ABC ( 7 ) 

COMMON/THISTORY/  TRE 
DIMENSION  TM(7),T(7) 

TXA (Y,  BY, YN) -TW+ (TG-TW) *EXP (-2. 302585*EXP (ALOG (Y/BY) * (1 . /YN) ) ) 
TXB { Y , BY ) -TW+ (TG-TW) ** (1 ./TAN <BY*Y+0 . 7S5398) ) 

TXC (Y, BY) -TW+ (TG-TW) ** (COS (BY*Y) ) 

TMX (X, TK) -TK/2 . +TK*X/2 . 

DO  50  1-1,7 
TM (I) —0 . 
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50  T(i)-0. 

IF (CJ.GE.O. 001)GO  TO  11  ‘ 

10  WHITE (*,12) 

12  FORMAT (IX,  'TM  (  T  VLAUES  ESTIMATED  BY  SUBROUTINE  COOL  ARE  QDESTI 
*ONABL£  SINCE  CJ  <  0.001') 

GO  TO  13 

11  IF (C J. LE . 0 . 4 ) GO  TO  13 

IF (CJ.LE. 0. 999999) GO  TO  14 
IF (CJ.LE. 1.00001) GO  TO  15 
IF (CJ.LE. 6500.0) GO  TO  16 
WHITE (*,17) 

17  FORMAT (IX, 'TM  &  T  VALUES  ESTIMATED  BY  COOL  ARE:  QUESTION 
*ABLE  SINCE  CJ  >  6500.0’) 

GO  TO  16 

13  TL  -  FC  *  (0.3913  -  0.3737  *  ALOG10 (CJ) ) 

EN  -  (TL/CJ  -  ALGG10 (CJ) )  /  (TL/CJ) 

B  -  TL  *  (TL/CJ  -  ALOGIO(CJ)  )  **  (EN) 

T(1)-TG 

TM(l)-0. 

DO  18  1-2,7 

IF (I. EQ. 4) GO  TO  19 

TMZ-TMX (ABC (I )  ,  TL) 

TM (I) -TMZ 

20  TXT— TXA(TM(I)  ,  B,.EN) 

T (I) —TXT 

GO  TO  18 
19  TM(I)— TL/2. 

GO  TO  20 

18  CONTINUE 
GO  TO  8 

15  WRITE (*,21) 

21  FORMAT (IX, 'CALLING  EXIT  FROM  COOL  SINCE  CJ-1.0') 

GO  TO  8 

14  TL-0. 9*FC* (l.-CJ) 

B-  (1 .  /TL)  *  (ATAN  (ALOG10  (TG-TW)  /  (ALOGIO  (CJ*  (TG-TW) )  -TL/FC)  )  - 
*0.7853982) 

TM(l)-0. 

T  (1 )  — TG. 

DO  22  1-2,7 
IF (I.EQ.4)GO  TO  23 
TMZ -TMX  ( ABC  ( I )  ,,  TL  ) 

TM(D— TMZ 

24  TXT— TXB (TM (T)  , B) 

T ( I ) —TXT 
GO  TO  22 
23  TM (I) —TL/2. 

GO  TO  24 

22  CONTINUE 
GO  TO  8 

16  IF (CJ.LE. 5.8)  TL-0.7*FC*(CJ-1.) 

IF (CJ. GT. 5. 8)  TL  -  1.54  *EC  *ALOGlQ (CJ/1 . 8) 

B-  (1 . 0/TL)  *ACOS  ( (ALOG1 0  (C  J*  (TG-TW)  )-TL/PC)/ALOGl'0(TG-TW)); 

TM (1 ) —0 . 

T (1) -TG 

DO  25  1-2,7 

IF ( I . EQ . 4  >  GO  TO  26 

TMZ-TMX  (ABC (I) ,TL) 

TM  (I)  — TMZ 

27  TXT— TXC (TM(I) ,B) 

T (I) —TXT 
GO  TO  25 
26  TM(I) —TL/2 . 

GO  TO  27 
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25  CONTINUE 
8  RETURN 
END 

CALCULATE  1  TEMPERATURES  ON  A  LINEAR  PORTION 
OF  A  COOLING  CURVE 


SUBROUTINE  COOLA(CJ, FC, TL, TG, TW,  TM,T, Z) 


DIMENSION  TM(7),T<7> 

COMMON/COMA/ABC (7) 

COMMON/ THIS TORY/  TRE 

TX (Y) -TW+CJ* (TG-TW) *EXP (-2. 302585*Y/FC) 

TMX {X, TBX, TIN) - (TBX+TIN) /2 . + (TBX-TIN) *X/2 . 
TMY(X,TBX)-TBX/2.+TBX*X/2. 

TIM(X)-FC*ALOG10 (CJ* (TG-TW) / (X-TW) ) 

DO  50  1-1,7 
TM (I )-0. 0 
50  T  (I )— 0 , 0 

IF{CJ.LE.0.999999)GO  TO  8 
IF (CJ.LE. 1.00001) GO  TO  9 
GO  TO  8 
9  TBL-TG 

_ WBEN  CJ-1 . 0, THE  COMPUTATIONAL  FLOW  IS  BLANCHED  TO  9.  IN 

THIS  CASE  TBL-TG  SINCE  THERE  IS  NO  CURVEL INEAR  PORTION. 
GO  TO  10 
8  TBL-TX(TL) 

10  IF (TRE.NE. (5 .*Z) )GO  TO  20 
TLOW-l.E-6 

GO  TO  21 

20  TLOK-TRE  -  5.*Z 

21  IF (TLOW.GE.TG)GO  TO  1 
I F { TLOW . GE . TBL ) GO  TO  1 
IF (TLOW.GT.TW)GO  TO  2 
IF (TLOW.LE . TW) GO  TO  3 

1  TEND— TIM ( (TBL+TW) /2 . ) 

7  CONTINUE 

T  (1 )— TBL 

TM {1 )— TL 

DO  4  1-2,7 

IF (I . EQ. 4) GO  TO  5 

IF (CJ.LE .0. 99 99 99) GO  TO  11 

IF (CJ.LE .1 . 00001 ) GO  TO  12 

11  TMT— TMX (ABC (I > , TEND,  TL) 

6  TM ( I ) -TMT 

GO  TO  13 

12  TMT-TMY (ABC (I ) , TEND) 

GO  TO  6 

13  T (I )— TX (TMT) 

GO  TO  4 

5  IF (CJ.LE. 0.999999)GO  TO  14 
IF (CJ.LE. 1.00001) GO  TO  15 

14  TMT- (TEND+TL) /2. 

GO  TO  6 

15  TMT-T END/2. 

GO  TO  6 

4  CONTINUE 
GO  TO  16 

2  TEND-TIM (TLOW) 

GO  TO  7 

3  TEND-TIM (TW+0. 01* (TBL-TW)) 

GO  TO  7 

16  RETURN 
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END 

CALCULATE  STERILIZING  VALUES  By 

APPLYING  LOBBATO  7  POINT  QUADRATURE  FORMULA 

*****************************  NOMENCLATURE  *************************** 
R  Sterilizing  value  calculated  (min.) 

T  Seven  temperatures  (Deg.  C.)  used  to  calculate  R  value. 

TBGIN  Lower  time  limit  of  integration  (min.) 

TEND  Upper  time  limit  of  integration  (min.) 

*******************  ********************  ****************  ***************  ** 


SUBROUTINE  RATE <R, T, Z, TBGIN, TEND) 


COMMON/COMH/H ( 7 ) 
COMMON/THISTORY/  TRE 
DIMENSION  T (7) 

IP(T(1) ,NE.TRE)GO  TO  2 
RA-H(l) 

GO  TO  4 

2  RA-H(1)*10.**( <T(1)-TRE)/Z) 

4  CONTINUE 
DO  1  1-2,7 

IF (T ( I ) . NE . TRE ) GO  TO  5 
RA-RA+H (I) 

GO  TO  1 

5  RA»RA+R(I)  *10 .  **  (  (T'(I)-TRE)  /  Z) 
1  CONTINUE 

IF (TBGIN. GE.l . OE-3) GO  TO  6 
R— TEND/2 . *RA 
GO  TO  7 

6  R- (TEND-TBGIN) /2.*RA 

7  RETURN 
END 


Dimension  Design  Program 
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C  9.3  DIMESION  DESIGN  PROGRAM  (OP2.F) 

C  Main  program  for 

C  the  optimization  of  retcrtabla  plastic  compartment  tray  design 

C  Ref.:  Saguy,  I.,  1983.  Optimization  of  dynamic  systems  utilizing  the 

C  Maximum  principle,  pp.  321-359.  in  "Computer-Aided  Techniques 

C  in  Food  Technology",  ed.  I.  Saguy,  Marcel  Dekker,  Inc.,  Mew  York, 

c 

q  *****************************  nomenclature  *  I********************.************ 

C  F  objective  function 

C  X{1 »,...,  X (NX)  an  array  containing  values  of  the  independent  variables 

C  Yd),...,  Y(NY)  an  array  containing  values  Of  the  dependent  variables 

c  P{1 P(NP)  an  array  conatining  values  of  the  parameters  in  the 

C  model  which  may  be  varied  from  one  optimization  run 

C  to  the  next 

C  NX  number  of  independent  decision,  variables 

C  NY  number  of  dependant  variables 

C  NP  number  of  parameters 

c  maxit  maximum  allowable  number  of  iterations  to  be  performed 

c  Nfreq  iteration  frequency  at  which*  intermediate  printing  of  the  current 
C  simplex  is  to  be  performed  to  monitor  progress  toward  solution 

C  namex  name  of  variable,  expressed  es  five  alphanumeric  characters 
C  XL (i)  lower  bound  on  variable  (real) 

C  xu (I)  upper  bound  on  variable  (real) 

C  X(l)  initial  value  of  the  variable  corresponding  to  a  feasible  point 
C  NAMEY  name  of  variable,  expressed  es  five  alphanumeric  characters 
C  YL { I )  lower  bound  on  variable  (real) 

C  YU- (I )  upper  bound  on  variable  (real) 

C  NAMEP  name  of  parameter,  expressed  es  five  alphanumeric  characters 
C  P(lj  value  of  parameter 

C  nameF  name  of  objective  function,  expressed  as  five  alphanumeric,  characters 

C  rdev  allowable  relative  deviation  in.  objective  function  value  to  be 

C  used  in  convergence  test  (  a  value  of  0.00.1  is  typical), 

c  adev  allowable  absolute  deviation  in  objective  function  value  to  be 
C  used  in  convergence  test  {  a  value  of  0.001  is  typical.) 

C 

C 

c  ******************* ********* ************************************************ 

c 

nniTRT  IT  T>DPrT<!TrtW  nQFPD  i 

C HARACTER  NTITL*  47 ,  NAMEF* 5,  NAM£X.(12)  * 3,  NAMEY  < 30)  *  5> NAMEP '(1 )  *  5, 

*OLD*2 

COMMON/OPT/  F, X (12) , Y (30) , P(l) 

COMMON/CONDI /FLANGE, G, HEAD, V (3) > XLL (3, 3) 

COMMON/STORE/  NX,  NY, NP, XL  (12) ,  XU.{  12) ,  YL  (30) ,  YU (30)  , 

*XC (12) ,XX  (12>  24) , YY(3G, 24) , FF (2f) , JG,NIT, 

*  ALPHA,  BETA,  KMAX,  MAXIT,  FR,  FA,  RDEV,  FMIN,  NFREQ 
COMMON/ASTORE/NTITL,  NAMEF,  NAMEX,  NAMEY,  NAMEP,  OLD 
COMMON/FAND J/C ( 3 ) , C J ( 3 ) , FH( 3) , HJ ( 3) , THBAT1, TI,TR,  TC 
DIMENSION  TM1 (300), tM2 (7 ) ,TM3 (7) , TT1 (300) , T2 (7) ,T3(7) 

ALPHA-1 . 3 
BETA-0.5 
GAMMA-0.10 
NMAX1-50 
DSEED-123457 .DO 
MAXIT— 100 

C  .  READ  BASIC  DATA  FOR  OPTIMIZATION.  RUN  ..... 

99  CALL. OPTRD 
CALL  OPTPR(l) 

C  .  USE  OLD  SIMPLEX  OR  NOT?  .... . 

IF (OLD. EQ.' NO') GOTO  200 
NIT-0 

IND=3  , 

CALL  MODEL (IND) 
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KMAX-2*NX 

OPEN ( 8 , FILE- ' COMP . DAT ' , STATUS-*OLD • ) 

KCR-KMAX 

IGG-0 

808  KPT-KCR 

IF (KCR. GT . 7) KPT— 7 
INDEX-IGG*7 
DO  802  I— 1, NX 

READ  (8,  3001)  (XX (I,  K+ INDEX) ,  K-l,  KPT) 
802  CONTINUE 

IF (NY) 804,  804,805 

805  DO  806  1-1 ,NY 

READ (8/ 3001) (YY(I,K+INDEX),K-1,KPT) 

806  CONTINUE 

804  READ (8, 3001) (FF (K+ INDEX) , K-l, KPT) 
KCR-KCR-7 
IGG-IGG+1 

IF (KCR) 807, 807, 808 

807  CONTINUE 
IND-2 
GOTO  300 

200  CONTINUE 

DO  100  I-1,NX 
100  XC(I)-X(I) 

NIT-0 

IND-1 

CALL  IMTST (Nl, 1, IFLAG, IND) ' 

CALL  OPTPR ( 2 ) 

IND-2 

IF (IFLAG) 500, 501,500 
501  CONTINUE 

C  .  ESTABLISH  INITIAL  SIMPLEX  . 

KMAX«2*NX 

K-l 

104  FF(K)-F 

DO  102  1-1 , NX 
XX  (I,  K)  —X  (I) 

102  CONTINUE 

IF (NY) 120, 120,121 
121  CONTINUE 

DO  105  I— 1,NY 

105  YY (I, X)— Y (I) 

120  CONTINUE 

DO  103  I— 1, NX 

103  XC (I) — (XC (I) * (K-l) +X (I) ) /K 
IF (K-XMAX) 110, 300, 300 

110  K-X+l 

DO  106  1-1 , NX 

CALL  GGUBS (DSEED, YFL) 

106  X (I) —XL (I )+YFL* (XU (I ) -XL (I)  ) 

CALL  IMTST (N1,NMAX1, IFLAG, IND) 

IF (IFLAG) 502, 503, 502 

503  CONTINUE 
GOTO  104 


C  .  BEGIN  ITERATIVE  SEARCH  FOR  OPTIMUM  . 

300  CONTINUE 

C  .  ESTABLISH  COUNTER  FOR  INTERMEDIATE  PRINTING 

IF (NFREQ) 520,  520, 508 
520  I PRT-MAXIT+1 


GOTO  509 
508  IPRT— NFREQ 
WRITE (6, 1003) 
CALL  OPTPR(3) 
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S09  CONTINUE  / 

C  _  FIND  POINTS  OF  SIMPLEX.  WITH  HIGHEST  AND  LOWEST  FUNCTION  VAL. 

317  NIT-NIT+1 

FMAX—  1.0E10 

FMIN-1.0E10 

JG-0 

JL-0 

DO  323  J-1,KMAX 
IF (FF ( J) -FMAX) 301, 301,303 
303  JG-J 

FMAX-FF(J) 

301  CONTINUE 

IF (FF ( J) -FMIN) 322, 323, 323 

322  FMIN-FF(J) 

JL-J 

323  CONTINUE 

C  .....  TEST  FOR  CONVERGENCE  ..... 

FDEV-FMAX-FMIN 
FTEST-FDEV-FR**BS  (EMIN) -FA 
IF (FTEST) 400, 400,401 

C  .  TEST  SATISFIED,  PROCEDURE  HAS  CONVERGED  ....... 

400  CALL  OPTPR(l) 

WRITE (6, 1000) NIT 
DO  404  1-1, NX 
X(I)-XX(I,  JL) 

404  CONTINUE 
IF(NY)407,407.406 

406  DO  405  I-l.NY 

405  Y  (I)  — YY  (I,  JL) 

407  CONTINUE 
F— FF  ( JL) 

CALL  OPTPR<2) 

GOTO  519 

C  . TEST  NOT  SATISFIED,  PROCEED  FOR  ANOTHER  ITERATION  . . 

401  CONTINUE 
C 

C  COMPARE  CHANGES  IN  THE  OBJECTIVE  FUNCTION  BETWEEN  ITERATIONS 

C  TO  AVOID  UNNESSARY  COMPUTATIONS  WHEN  NOT  CONVERGE 

C 

EPS  -  0.001 

AFD1  -  ABS(FDEV-FOLD) 

AFD2  -  ABS (FDEV-FNEW) 

IF (AFD1.GT.EPS .OR.AFD2.GT.eps)  GOTO  411 
IF (ABS (FDEV/FMIN) . LE.0.1)  GOTO  511 
411  FOLD-  FNEW 
FNEW  -  FDEV 


C 

C  CHECK  THE  NUMBER  OF  ITERATIONS  AGAINST  THE  MAXIMUM  NUMBER 
C 

IF (NIT-MAXIT) 402, 402,403 

C  . MAXIMUM  ALLOWABLE  NO.  OF  ITERATION  HAS  BEEN  EXCEEDED  ;.. 


403  CALL  OPTPR(l) 

WRITE (6, 1001) NIT 
DO  704  I— 1 , NX 
X(I)-XX(I, JL) 

704  CONTINUE 

IF (NY) 707, 707, 706 

706  DO  705  I— 1, NY 

705  Y (I)-YY(I, JL) 

707  CONTINUE 
F-FF ( JL) 

CALL  OPTPR(3) 

CALL  OPTPR(2) 
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GOTO  555 
402  CONTINUE 


C 

C  .  COMPUTE  CENTROID  OF  POINTS  IN  SIMPLEX, EXCLUDING  ONE 

C  WITH  HIGHEST  FUNCTION  VALUE  . 


DO  304  1-1, NX 
XC(I)«0.0 
DO  305  J-1,KMAX 
305  XC(I)«XC(I)+XX(I, J) 

304  XC  (I)  “  (XC  (I)  -XX  (I,  JG)  )  /  (KMAX-1 ) 


C  .  COMPUTE  NEW  TRIAL  POINT  BY  REFLECTING  POINT  OF  HIGHEST 

C  FUNCTION  VALUE  THROUGH  CENTROID  OF  REMAINING  POINTS  .... 

DO  306  I-1,NX 

X (I) “XC (I) -ALPHA* (XX (I, JG) -XC (I)  ) 

C  .  TEST  EACH  EXPLICIT  VARIABLE  TO  SEE  IF  IT  VIOLATES  BOUND. 

C  IF  SO, SET  INSIDE  BOUND  BY  A  SMALL  AMOUNT  ..... 

IF(XU(I)-X(I) >307,307,308 


307  X  (I)  *XU  (I)  -GAMMA*  (XU  (I)  -XC (I) ) 

308  IF (X (I) -XL (I) >309,309,306 

309  X (I) “XL (I) +GAMMA* {XC {I) -XL(I) ) 
306  CONTINUE 


C  .  TEST  TO  SEE  IF  IMPLICIT  VARIABLES  VIOLATE  BOUNDS  . 

CALL  IMTST(N1,NMAX1,IFLAG,IND) 

IF (IFLAG) 504, 505, 504 
505  CONTINUE 

C  .  TEST  TO  SEE  IF  TRIAL  POINT  PRODUCES  HIGHEST  FUNCTION 

C  VALUE  IN  NEW  SIMPLEX  . 

DO  312  J-1,KMAX 
IF ( J-JG) 316, 312, 316 
316  IF (FF ( J) -F) 312, 312, 313 
312  CONTINUE 

C  .  BECAUSE  TRIAL  POINT  PRODUCES  HIGHEST  FUNCTION  VALUE, MOVE 

C  TO  FRACTIONAL  DISTANCE  BETA  FROM  CENTROID  OF  OTHER  POINTS 

DO  314  I-1,NX 

314  X  (I)  “XC  (I)  +BETA*  (X  (I)  -XC  (I) ) 

C  .  INSERT  TRIAL  POINT  INTO  NEW  SIMPLEX  . 


313  CONTINUE 

CALL  IMTST(N1,NMAX1,IFLAG,IND) 

IF (IFLAG) 506, 507, 506 
507  CONTINUE 

DO  315  I“1,NX 
315  XX (I, JG)-X(I) 

IF  (NY)  320,  320,  321 
321  CONTINUE 

DO  318  I«1,NY 
318  YY (I, JG)-Y(I) 

320  CONTINUE 
FF (JG)-F 

C  .  DO  INTERMEDIATE  PRINTING  IF  REQUIRED  . 

IF (NIT-IPRT) 317,510,510 
510  CALL  OPTPR ( 4 ) 

CALL  OPTPR (3) 

IPRT-IPRT+NFREQ 
GOTO  317 

C  .  PRINT  ERROR  MESSAGE  AFTER  CONSTRAINT  VIOLATION  IN  IMTST 

500  WRITE (6, 1002) 

GOTO  555 
502  CALL  FAIL ( 1 ) 

GOTO  555  , 

504  CALL  FAIL (2) 

GOTO  555 
506  CALL  FAIL (3) 

GOTO  555 
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511  WRITE (6, 1004)  NIT 
WRITE (6, 1001)  NIT 
CALL  OPTPR(3) 

CALL  OPTPR(2) 

C 

C  PRINT  TEMPERATURE  HISTORY  FOR  CURRENT  TRAY  DESIGN 
C 

519  WRITE <6, 1005) 

TO  -  TI 
T1  -  TR 
TW  -  TC 
TMG  -  THEAT1 
DO  527  K  -  1,3 

CALL  HEAT (HJ  (K) , FH (K) , TO, Tl , -1 . , TMG, 251 ,D£L, TM1/TT1) 

TG  -  TT1 (251) 

CALL  COOL  <CJ  (K) ,C  <K) , TL, TG,TW,TM2, T2) 

521  CALL  COOLA (C J (K) , C (K) , TL, TG, TW, TM3,  T3,Z) 

DO  523  K1  -  11,251,10 
523  WRITE (6, 1006)  TMl(Kl),  TTl(Kl) 

DO  525  K2  -  1,7 

TIME2  -  TM1 (251)  +  TM2(K2) 

525  WRITE (6, 1006)  TIME2,  T2(K2) 

DO  527  K3  -  1,7 

TIME 3  -  TMl  (251)  +  TM2(7)  +  TM3-CK3) 

WRITE (6, 1006)  TIME3,  T3(K3) 

527  CONTINUE 
C 

C  CALCULATE  &  PRINT  THE  DIMENSIONS  OF  THE  TRAY 

C 

DO  529  1-1,3 
XLL  (I,  3)  -  X  (2) 

529  CONTINUE 

XLL  (3, 3)  -  X (2)  -  2.*X(1) 

XLL (1,1)  =  2.  *  XLL (1,1) 

XLL (1,2)  -  2.  *  XLL (1,2) 

XLL (2,1)  -  2.  *  XLL(2,1) 

XLL (2,2)  -  2.  *  XLL (2,2) 

XLL (3,1)  -  2.  *  XLL  ( 3, 1) 

XLL (3, 2)  -  2.  *  XLL (3, 2) 

XDO  -  XLL  (3,1)  +  2 .  *X(1)  +  2.*FLANGE 
YDO  -  XLL  (3,-2)  +  2  .  *X  (1 )  +  2  .  *FLANGE 
ZDO  -  X (2) 

VDO  -  XDO  *  YDO  *  ZDO  . 

WRITE (*,*)  '  ' 

WRITE (*,*)  'ENTREE  COMPARTMENT  DIMENSION',  (XLL (1,1 ) ,1-1, 3) 
WRITE**,*)  'STARCH  COMPARTMENT  DIMENSION' , (XLL (2,1) ,1-1, 3) 

WRITE (*, *)  'DESSERT  COMPARTMENT  DIMENSION' , (XDO, YDO, ZDO) 
WRITE**,*)  'DIMENSION  OF  INNER  DESSERT  TRAY' , (XLL (3, 1) , 1-1,3) 
WRITE (*,*)  'VOLUME  OF  (OUTER)  DESSERT  COMPARTMENT ', VDO 
555  STOP 

C  .  FORMAT  STATEMENTS  . 

1000  FORMAT*/'  ', 'PROCEDURE  HAS  CONVERGED  IN', I 4,'  ITERATIONS.*/ 

*•  THE  SOLUTION  IS  AS  FOLLOWS:') 

1001  FORMAT ('  ',/, 'PROCEDURE  HAS  NOT  CONVERGED  IN' ,14,  '  ITERATIONS.  '/ 
*'  ', 'THE  CURRENT  TRIAL  SOLUTION  AND  SIMPLEX  IS  AS  FOLLOWS: ' ) 

1002  FORMAT (/•  ', 'BASE  SET  OF  VARIABLES  VIOLATES  SOME  CONSTRAINT. ' ) 

1003  FORMAT (/'  ',' ITERATION  O') 

1004  FORMAT (/•  ', 'NOT  MUCH  IMPROVEMENT  COULD  BE  ACHIEVED  AFTER 
*,I4,'th  ITERATION.') 

1005  FORMAT ( / / '  ',5X, 'AT  TIME  -  min. ', 5X, 'TEMP .  -  DEG.  C. ' ) 

1006  FORMAT*'  • , 5X, F15. 3, 5X,  F15 . 3) 

3001  FORMAT (6X,7E15. 5) 

END 
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C 

C  Read  input  data  for  main  optimization  program 

C  - - - 

SUBROUTINE  OPTRD 

C  - - - - - 

CHARACTER  NTITL*47, NAMEF* 5 , NAMEX (12) *5, NAMEY (30) *5, NAMEP (1) *5, 
★OLD *2 

COMMON/OPT/  F,X(12),Y(30),P(1) 

COMMON/STORE/  NX,  NY, NP, XL (12) ,XU (12) ,  YL (30) , YU (30) , 

*XC(12) , XX (12,24) ,YY (30,24) ,FF (24), JG, NIT, 

* ALPHA, BETA, KMAX, MAXIT, FR, FA, FDEV, FMIN, NFREQ 
COMMON /ASTORE/  NTITL,NAMEF, NAMEX, NAMEY, NAMEP, OLD 

C  . READ  BASIC  DATA . 

OPEN (5, FILE- ' OPT 2 . DAT' , STATUS- ' OLD ' ) 

READ ( 5 , 1 0 0 0 ) NTITL , OLD 

READ ( 5 , 1 0 01 ) NX , NY , NP, MAXIT,  NFREQ 

DO  100  I-1,NX 

100  READ (5, 1002) NAMEX (I ) , XL (I ) , XU (I),X(I) 

IF (NY) 112,112,113 

113  DO  101  1-1, NY 

101  READ (5, 1002) NAMEY (I) , YL(I) ,  YU (I) 

112  CONTINUE 

IF (NP) 114, 114, 115 
115  DO  102  I— 1 , NP 

102  READ <5, 1002) NAMEP (I), P (I) 

114  CONTINUE 

READ (5, 1002) NAMEF, FR, FA 
CLOSE (5) 

RETURN 

C  .....  FORMAT  STATEMENTS  . 

1000  FORMAT ( A4 7, A2) 

1001  FORMAT (715) 

1002  FORMAT (A5,3F10.«) 

END 

C 

C  Print  intermediate  results  and  optimal  design  specifications 


SUBROUTINE  OPTPR(IARG) 


DIMENSION  NINT(50) 

CHARACTER  NTITL*47, NAMEF*5, NAMEX (12) *5, NAMEY (30) *5, NAMEP (1) *5, 
*OLD*2 

COMMON/OPT/  F,X(12),Y(30),P(1) 

COMMON/STORE/  NX, NY, NP,XL(12) ,XU (12) , YL (30) , YU (30) , 

*XC(12) , XX (12, 24) , YY ( 30, 24) , FF (24) , JG,NIT, 

•ALPHA,  BETA,  KMAX, MAXIT,  FR,  FA,  FDEV,  FMIN,  NFREQ 
COMMON/ASTORE/  NTITL,  NAMEF,  NAMEX,  NAMEY,  NAMEP,  OLD 
DATA  NINT/1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 16, 19, 20, 21 
*22,23,24,25,26, 27, 28, 29, 30, 31,32, 33, 34, 35, 36, 37,38, 39, 40,41, 42, 
*43,44,45,46,47,48,49,50/ 

GOTO  (1,2,3, 4, 5, 6) ,IARG 
1  CONTINUE 


C  .  PRINT  TITLE  . 

WRITE (6, 2000)NTITL 
RETURN 
2  CONTINUE 

C  .  PRINT  TRIAL  SOLUTION  AND  LIMITS 

WRITE (6,2002) 

WRITE (6, 2003) 

DO  200  I— 1 , NX 


200  WRITE (*, 2 004) NAMEX (I) ,XL (I) ,XU(I),X(I) 
IF (NY) 201,201,202 
202  WRITE (6, 2005) 
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WRITE (6,2003) 

DO  203  I«1,NY 

203  WRITE  (6, 2004)  NAMEY  (I).,  YL(I),,YU(1)  ,X(I) 
201  CONTINUE 

IF (NP) 204, 204,205 

205  WRITE (6,2011) 

WRITE (6, 2012) 

DO  206  I«1,NP 

206  WRITE (6, 2004) NAMEP(X)  ,P(I) 

204  CONTINUE 
WRITE (6,2010) 

WRITE (6,2006) 

WRITE (6,2004) NAMEF,F,FR, FA 
RETURN 
3  CONTINUE 


C  .  PRINT  VALUES  OF  VARIABLES  AT  VERTICES  OF  CURRENT  SIMPLEX  . . _ 

KMAX1-KMAX+1 
WRITE (6, 2007) KMAX1 

C  .  PRINTING  DONE  IN  GROUPS  OF  SEVEN  ..... 

XK=1 

KKK-7 


400  CONTINUE 
KKKK-KKK 

IF (KKK . GE . KMAX1 ) KKK-KMAX1 
IF (KKK . EQ . KMAX1 ) KKKK-KKK-1 
WRITE  (6, 2008)  (NINT(I) ,  I-KK,KKK) 

DO  301  I-1,NX 
XX(I,KMAX1)-XC(I) 

301  WRITE (6, 2004) NAMEX (I) ,  (XX  (I,  K)  ,  K-KK,  KKK) 
IF  (NY)  303,  303,  304 

304  DO  305  I“1,NY 

305  WRITE (6, 2004) NAMEY  (I) ,  (YY  (I,  K)  ,  K-XK,  KKKK) 
303  CONTINUE 

WRITE (6, 2004) NAMEF,  (FF (K) ,  K“KK, KKKK) 

IF (KKK . EQ . KMAX1 ) GOTO  401 
KK-KK+7 


AT 

t 


CURRENT  ITERATION 


KKK“KKK+7 
GOTO  400 
401  CONTINUE 
RETURN 

4  CONTINUE 

C  .  PRINT  RESULTS 

WRITE (*,*)  • 

WRITE (6, 200 9) NIT, JG, FDEV, FMIN 
RETURN 

5  CONTINUE- 
RETURN 

6  CONTINUE 
RETURN 

C  .  FORMAT 

2000  FORMAT (• 

2002  FORMAT (• 

2003  FORMAT ( ' 

♦•VALUE'/) 

2004  FORMAT (' 

2005  FORMAT {* 

2006  FORMAT (• 

2007  FORMAT {' 

2008  FORMAT (• 

2009  FORMAT (' 

* '  FMIN  *• 

2010  FORMAT (' 

2011  FORMAT (* 


STATEMENTS 
,A47) 

,  '  INDI 

,1X,  'NAME', 4X,  'LOWER  BOUND  '.,  4X,  'UPPER  BOUND ',1  OX, 

,AS, 1P7E15.5) 

, 'DEPENDENT  VARIABLES') 

,1X, ' NAME' , 10X, 'VALUE', 8X, 'REL  DEV',8X,  ’ABS  DEV'/) 

, 'VARIABLES  IN  SIMPLEX  (CENTROID  IS  VERTEX' , 13, *) ') 

,* VERTEX ',114, 7115) 

, 'ITERATION' ,14,  '  ENTERING  VERTEX',  13,  •  FDEV  -'.,1PE12, 
1PE12.4) 

, 1  OBJECTIVE  FUNCTION') 

, 'PARAMETERS' ) 
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2012  FORMAT ('  • , IX, 1  NAME ' , 10X, ‘VALUE' /) 

END 

Test  for  violation  of  implicit  constraints  in  main  program 


SUBROUTINE  IMTST (N,NMAX, IFLAG, IND) 


CHARACTER  NTITL*47,NAMEF*5, NAMEX (12 ) *5,NAMEY (30) *5,NAMEP (1) *5, 
*OLD*2 

COMMON/OPT/  F,X(12),Y(30),P(1) 

COMMON/STORE/  NX, NY,  NP,  XL  (12) ,XU(12) , YL  (30) , YU(30)  , 
*XC(12),XX(12,24),YY(30,24),FF(24),JG,NIT, 

•ALPHA,  BETA,  KMAX,  MAXIT,  FR,  FA,  FDEV,  FMIN,  NFREQ 
COMMON/ ASTORE/  NTITL, NAMEF, NAMEX, NAMEY , NAMEP , OLD 
I FLAG-0 
N— 1 

.  EVALUATE  OBJECTIVE  FUNCTION  AND  DEPENDENT  VARIABLES  . 

108  CALL  MODEL (IND) 

IF  (NY)  300,  300,  301 

300  RETURN 

301  CONTINUE 

.  TEST  TO  SEE  IF  ANY  IMPLICIT  CONSTRAINT  HAS  BEEN  VIOLATED  . . 

DO  103  I -1 , NY 

IF (Y  (I) -YL  (I) >101,102,102 

102  IF(YU(I)-Y  (I) >101,103,103 

103  CONTINUE 
RETURN 

.  BECAUSE  TRIAL  POINT  VIOLATES  IMPLICIT  CONSTRAINTS,  MOVE  TO 

FRACTIONAL  DISTANCE  BETA  FROM  CENTROID  OF  OTHER  POINTS  . . . . 
101  DO  104  I— 1,NX 

104  X(I)-XC(I)+BETA* (X(I)-XC(I) ) 

IF (N-NMAX) 106, 107, 107 

106  N-N+l 
GOTO  108 

.  TRIAL  POINT  DID  NOT  SATISFY  IMPLICIT  CONSTRAINT  AFTER  NMAX 

MOVES  TOWARD  CENTROID  OF  OTHER  POINTS  . 

107  IFLAG— 1 
RETURN 
END 

Print  error  messages  for  main  program 


SUBROUTINE  FAIL (NARG) 


WRITE(6,1000)NARG 
CALL  OPTPR(2) 

CALL  OPTPR (3) 

RETURN 

'  FORMAT ( •  ' , 1  ERROR  ENCOUNTERED  INOPTIMM'/'  ', 'TYPE', 13, 
**  CONSTRAINT  VIOLATED') 

END 

Generate  random  numbers  for  optimization  iterations 


SUBROUTINE  GGUBS  (DSEED, R) 

C  - 

REAL  R 

DOUBLE  PRECISION  DSEED 

C  SPECIFICATIONS  FOR  LOCAL  VARIABLES 

INTEGER  I 

DOUBLE  PRECISION  D2P31M,D2P31 
C  D2P31M- (2**31)  -  1 
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C  /  D2P31  -(2**31)  (OR  AN  ADJUSTED  VALUE) 

DATA  D2P31M/2147483647.D0/ 

DATA  D2P3 1/214 748 3 64 8 .DO/ 

C  FIRST  EXECUTABLE  STATEMENT 

DSEED  -  DMOD (16807. DO*DSEED,D2P31M) 

R  -  DSEED  /  D2P31 
RETURN 
END 

Estimate  thermal  processing  lethality  and  time-temperature  history 
for  each  of  the  compartments  In  the  tray 


SUBROUTINE  MODEL (IND) 


CHARACTER* 1 5  MEALS (3) 

DIMENSION  XL (3) ,X<3) , TTHEAT (3) , BI (3)  ,FIMM<3) 
COMMON/OPT/  OB Jr XI (12) ,Y<30) ,PAR(1) 

COMMON/CONDI /FLANGE, G, HEAD, V<3) ,  XLL (3,  3) 
COMMON/COND/  XKINS, TCOOL, TREF (3) ,XX(3,3),ZZ(3) ,FP(3) 
*,XK (3) , ALPHA (3) , HTA 

COMMON/FAND J/C  ( 3 ) , C J ( 3) , FH ( 3) , H J ( 3 ) , THEAT1 ,  TI ,  TR,  TC 
COMMON /THIS TORY/  TRE 
COMMON/TEMPT/  T (300) , TM(300) 

.  INPUT  DATA  . 

XI (1);  INSULATION  THICKNESS  OF  DESSERT  TRAY 
XI (2);  HEIGHT  OF  THE  WHOLE  TRAY 
XI (3);  LENGTH  OF  THE  ENTREE  TRAY 
ft  HETWFFN 

V(I) ;  VOLUME  OF  EACH  TRAY  (INNER  VOLUME) 

XLL (I, J) ;  DIMENSION  OF  ITH  TRAY  (INNER) 

CONSTRAINTS  FOR  TRAY  DESIGN 
LENGTH:  10  INCHES  <24  CM  +  2  EDGES) 

DEPTH:  1.1811  INCHES  (3  CM) 

INSULATION  THICKNESS:  0.4  CM 
GAP  BETWEEN  COMPARTMENTS:  0 . 8  CM 

IF(IND.EQ.1.0R.IND.EQ.3>  GO  TO  10 
GO  TO  20 

10  OPEN  { UNI  T-7  ,  FI  LE- '  TRAYD  E  S 1 1 .  D  AT  *  ,  S  TATUS- 1  OLD  ’ .) 

READ (7,1)  G 

READ  (7,1)  HTA, TCOOL, XKINS 
READ  (7,1)  TR,TI,TC 
DO  11  1-1,3 
READ (7,2)  MEALS (I) 

READ  (7,1)  V  (I)  ,  XX  (1, 1) ,  XX  (1, 2),  XX  (I,  3) 

READ (7, 3)  XK (I) , ALPHA (I) 

11  READ (7,1)  ZZ (I) , TREF (I) , FP (I) 

CLOSE  (UNIT-7) 

WRITE  (6, 5)  (MEALS (II), 11-1,3) 

C  . CALCULTE  THE  DIMESION  OF  THE  TRAYS  ...... 

IF (TREF (3) .EQ. 100.0)  THEN 
FLANGE  -  0.006 
HEAD  -  0.006 
ELSE 

FLANGE  -  0.0 
HEAD  -0.0 
ENDIF 

20  DO  12  1-1,3 

XLL (I, 3)  -  (XI  (2)  -  HEAD) /2 . 

12  CONTINUE 

XLL (3, 3)  -  (XI  (2)  -  HEAD  -  2.*XI  (l))  /2. 

XLL (1,1)  -  XI (3) /2. 
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XLL(1,2)  -  V(1)/(4.*XLL(1,1)*XLL(1,3))  /  2. 

CHECK  -  0.3  *  XLL (1,1) 

IF (XLL (1,2) .GE. CHECK)  THEN 

GOTO  14 

ELSE 

XLL (1*1)  -  SQRT (V(l)/(8.*0. 3*XLL(1,  3) ) ) 

XLL  (1, 2)  -  0.3  *  XLL(1, 1) 

END  IF 

14  AREA2  -  V (2)  /  (2 . *XLL ( 2, 3) ) 

AREA 3  —  V(3)  /  (2.*XLL(3, 3) ) 

A  -  4.* {XLL (l,l)-0.004-XI (1) -FLANGE) 

B  -  -4.  *{FLANGE+XI<1))*  (XLL  <1,  1) -0 . 004-XX  (1)  -FLANGE)  -AREA2-AREA3 
Cl  -  (FLANGE  +  XI (1) )  *  AREA2 

XLL ( 2, 2)  -  (-l.*B  +  SQRT (B*B  -  4.*A*C1))  /  (2.*A) 

XLL (2, 1)  -  (V(2)/(4.*XLL(2,2)*XLL<2,3)))/2. 

XLL (3, 2)  -  XLL (2, 2)  -  XI (1)  -  FLANGE 

XLL  (3,1)  -  XLL (1,1)  -  XLL  (2,1)  -  0.004  -  XI (1)  -  FLANGE 
Y  (1)  -4  .  *XI  (2)  *  (XLL  (3,  1)  +XI  (1) +FLANGE)  *  (XLL  (3,  2) -f XI  (1)  -f FLANGE) 

IF (XLL  (2, 2)  .LE. 0.0. OR. XLL (3,3) .LE.0.0)  Y(l)  — 1000. 

IF (Y (1) . LT. 0.0)  RETURN 
Y (2)  -  XLL (2, 2) *2. 

Y(3)  -  XLL<3,3)*2.  +  HEAD 

C  . CALCULATE  PROCESSING  TIME  FOR  EACH  MEAL  . 

TO  -  TI 
T1  -  TR 
TW  -  TC 

DO  200  I  -  1,  2 
TK-XK(I) 

AL-ALPHA(I) 

Z-22 (I) 

TRE-TREF(I) 

DO  100  J-1,3 
XL(J)-XLL(I,  J) 

X(J)-XX(I,  J) 

C  WRITE  (6,*)  XL(J) 

100  CONTINUE 
HT  -  HTA 

CALL  EIGEN (AL, XL, TK, HT, BI, FH (I) ,HJ(I>  ) 

CJ(I)  =  1.4 
C (I)  -  FH (I) 

CALL  PROCESS (TO, T1,TW,HJ (I) ,FH (I) ,  CJ(I)  ,  C (I) , 2, -1 . ,-l. ,  FP (I) , THEAT1,  FVALTE 
IF (THEAT1. GE. 300. )  GO  TO  201 
TTHEAT (I ) — THEAT1 
FIMM ( I ) — FVALUE 

C  WRITE ( 6 , * )  HJ(I) ,FH(I) ,TTHEAT(I) , FIMM (I) 

200  CONTINUE 

IF ( TTHEAT (1 ) .GT. TTHEAT (2) )  THEN 
THEATl-TTHEAT(l) 

FIMAX-FIMM(l) 

IMAX-1 

ELSE 

THEAT1-TTHEAT<2) 

FIMAX-FIMM (2) 

I  MAX-2 
ENDIF 

Y (4)  -  THEAT1 

201  DO  206  I  -1,3 
IF(I.EQ.IMAX)  GOTO  205 
TK-XK(I) 

AL— ALPHA (I) 

Z— ZZ  (I ) 

TRE-TREF(I) 

DO  204  J-1,3 
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XL(J)-XLL(I, J) 

X(J)-XX(I,  J) 

204  CONTINUE 

IF (I .NE. 3)  THEN 
HT  -  HTA 
ELSE 

HT-1 . / (1 . / HTA+XI (1) /XKINS) 

ENDIF 

ESTIMATE  THE  STERILIZING  VALUES  FOR  ALL  THE  FOODS  EASED  ON  THE 
PROCESSING  TIME  THEATl  FOR  THE  FOOD  WHICH  IS  LEAST  OVER-PROCESSED. 

CALL  EIGEN (AL, XL, TK,HT,BI,FB (I*  ,HJ(I) ) 

CJ(I)  -  1.4 
C(I)  *  FH(I) 

CALL  PROCESS  (TO, T1,TW,  HO  (X)  ,FH  (I)  ,  CJU)  ,C  (I)  , 2,  -1. , THEATl,  -1.  ,  -l.^FVALUE 
Y  (1+4)  -  FVALUE 
Y(8)  -  T  (251) 

GO  TO  206 

205  Y (1+4)  -  FIMAX 

206  CONTINUE 

OB J-ABS ( Y ( 5 ) -FP  (1 ) ) +ABS  ( Y ( 6} -FP  (2 ) ) +ABS (Y (7 ) -FP ( 3 ) ) 

RETURN 

.  FORMAT  STATEMENTS  . 

1  FORMAT (4F1 0.5) 

2  FORMAT (A10) 

3  FORMAT (FI 0 . 4 , E10 . 4 ) 

5  FORMAT ('  MEAL  NAMES  ARE  ’,3(A7,2X)) 

END 


Calculate  f  and  j  values  for  each  meal  in  the  compartment  tray 


SUBROUTINE  EIGEN (AL,  XL,  TX, HT, BI, FHI , HJI ) 


DIMENSION  BI ( 3 ) , XL ( 3 ) , BETAl < 3) , FI (3) , XJI (3) 

COMMON/ THI STORY/  TRE 
FNF (X, BI1 ) =X*TAN (X) -BI1 
DO  1240  1-1,3 
BI (I) — HT*XL (I) /TK 
BETAl (I)  -  0.0 
STP-3. 141592654 
STP1-0.001 

STP2-3. 141592654/2. -0.001 

XCRIT-0. 00001 

FCRIT-0 . 0001 

IF(BI(1) .EQ.C.0)  THEN 

BETAl (I) -0.0 

GO  TO  1225 

ELSE 

GO  TO  1200 
ENDIF 

1200  X1-STP1 
X2-STP2 
ICOUNT  -  1 

1210  FI— FNF (XI,  BI (I)  ) 

F2-FNF(X2,BI(I)  ) 

1215  FMULT— FI +F 2 

IF (FMULT . GT . 0 . 0 )  GOTO  1225 

C  .  BISECTIONAL  METHOD  FOR  ESTIMATION  OF  ROOTS  . 

1000  XERR-ABS(X1-X2) /2.0 
X3— (X1+X2) /2 . 

F3— FNF (X3,  BI (I)  ) 

IF (I. GT. 200)  GOTO  1220 
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IF(XEHR.LT.XCRIT)  GO  TO  1220 

IF(ABS(F3) . LT.FCRIT)  GO  TO  1220 

IF(F3*F1.LE.0.0)  THEN 

X2-X3 

F2-F3 

ELSE 

X1-X3 

F1-F3 

ENDIF 

ICOUNT  -  ICOUNT  +  1 
IF (ICOUNT.GT.200)  WRITE (6, 1) BI (I) 

GO  TO  1210 
1220  BETAl(I)  -  X3 
GO  TO  1230 

1225  ICOUNT  -  ICOUNT  +  1 

IF (ICOUNT. GT. 200)  WRITE (6,1)  BI(I) 

XI  -  STP  +  STP1 
X2  -  STP  +  STP 2 
FI  -  FNF (XI, BI (I ) ) 

F2  -  FNF (X2/  BI (I)  ) 

GO  TO  1215 

1230  FI  (I)  -  LOG (10 . 0)  *XL (I) *XI (I)  /  (BETA1 (I ) *BETA1 (I) *AL)  /  60. 

XJI(I)  -  2.0  *  SIN (BETA1 (I) )  /  (BETA1  (I)  +SIN (BETA1 (I ) ) *COS (BETA1 (I) ) ) 

C  WRITE  (6,*)  BI(I),  BETAl(I),  XL(I),  FI  (I),  XJI(I) 

1240  CONTINUE 
F  -  0.0 
HJI  -  1.0 
DO  1260  11-1,3 
F  -  F  +  1.0  /  FI (II) 

HJI  -  HJI  *  XJI(Il) 

1260  CONTINUE 

FHI  -  1.0  /  F 
1280  RETURN 

1  FORMAT (’  DONT  HAVE  ROOT  OF  TRANSCENDENTAL  EQUA. • ,F12. 4) 

END 

C 

C  ESTIMATE  PROPER  HEAT  PROCESSES  OF  RETORTABLE  PLASTIC  PACKAGE 
C  FOR  MULTIPLE  FOODS.  DEVELOPED  MAINLY  BASED  ON  THE  PROGRAMS  BY 
C  DR.  K.  RAYAKAWA, 

C  ADVANCES  IN  FOOD  RESEARCH,  VOL.  XX.  PP.  75-141,  1977. 

C  THIS  SUBROUTINE  SOLVES  2  TYPES  OF  PROBLEMS.  THEY  INCLUDE: 

C  TYPE  B:  GIVEN  Fp,  Solve  for  tb  (thermal  processing  time) 

C  TYPE  A:  given  tb,  Calculate  the  equivalent  Fp 

C 

C.  ********************************  NOMENCLATURE  ****************************"»*’ 

C  C  Slope  index  of  cooling  curve 

C  CJ  Intercept  coefficient  of  cooling  curve 

C  FH  Slope  index  of  heating  curve 

C  Hj  intercept  coefficient  of  heating  curve 

C  FP1  Target  sterilizing  value 

C  FPP  Estimated  sterilizing  value  for  given  TG  or  TMG 

C  TO  Initial  temperature  of  food  (Deg.  C.) 

C  T1  Holding  temperature  heating  medium  (Deg.  C.) 

C  TANS  Length  of  heating  phase  to  be  estimated.  A  thermal  process  with  rare 

C  minutes  of  processing  time  produces  a  target  sterilizing  value  FPL 

C  TG  Food  temperature  at  end  of  heating  phase  of  thermal  process. 

C  When  a  problem  is  for  estimating  TANS  or  when  an  actual.  TG  value 

C  is  given,  Set  TG  -  -  1.0. 

C  TMG  Length  of  heating  phase. 

C  When  a  problem  is  for  estimating  TANS  or  when  an  actual  TG  value 

C  is  given,  Set  TMG  -  -1.0 

C  tw  Cooling  medium  temperature  (Deg.  C.) 

C  *********************************************************************** **».■■»*»■ 
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c 

c  - - - - — 

SUBROUTINE  PROCESS {TO, T1 , TW, HJ, FH, C J, C, 2, TG, TMG, FP1, TANS, FPP) 

C  - - - 

COMMON/COMA/ABC (7) 

COMMON/COMH/H (7) 

COMMON/THISTORY /  TRE 
COMMON/TEMPT/  T (300) , TM(300) 

ABC  (1)— 1.0 
ABC(2)«-0. 8302239 
ABC{3)— 0.4688488 
ABC (4) “0 . 0 
ABC(5)-0. 4688488 
ABC (6)-0. 8302239 
ABC (7) “1 . 0 
H{1)*0. 0476190 
H{2)-0. 2768260 
H(3)-0. 4317454 
H(4)-0. 4876190 
H(5)-0. 4317454 
H(6)-0. 2768260 
H{7)«0. 0476190 
DO  141  J=l, 300 
T(J)-0. 

141  TM(J)-0. 

FPP*0 . 

YEP  -  0. 

YFP1  -  0. 

YFP2  -  0. 

TANS-0. 

IF (FPl . LE . 0 . )  GO  TO  146 
C 

C  This  is  a  Type  B  Problem. 

C  It  solves  for  the  processing  time  TANS  to  achieve  target  Fp. 
C 

TMG1  -  FPl 
FPP  -  0. 

TMG 2  -  40.  *  FPl 

142  TMG  -  TMG1 

CALL  HEAT (HJ, FH, T0,T1, -1 . 0, TMG, 25l,DEL,TM,T) 

C  WRITE (6, *) hj, fh, tO, tl,TMG,DEL,TM{251) , T (251) 

CALL  SIMP (T,DEL, 251, Z,FPH1) 

C  WRITE  (6, *)T (251 ) , del, z, FPH1 

CALL  FCOL  (FPC, CJ, C,T (251) ,TW, Z) 

C  WRITE  (6,*) FPC 

FPP1  *  FPH1  +  FPC 
YFP1  -  FPl  -  FPPl 

143  TMG  -  TMG 2 

CALL  HEAT (H J, FH, TO, T1 , - 1 . 0 , TMG, 2 51 , DEL, TM, T ) 

CALL  SIMP  (T, DEL, 251, Z,FPH2) 

CALL  FCOL (FPC,CJ,C, T(251),TW,Z) 

FPP2  *  FPH2  +  FPC 
YFP2  -  FPl  -  FPP2 
TMG  *  (TMG1+TMG2)  /  2.0 

CALL  HEAT (HJ,FH,T0,T1, -1.0, TMG, 251, DEL, TM,T) 

CALL  SIMP (T, DEL, 251, 2, FPH) 

CALL  FCOL (F?C,CJ, C,T (251) , TW,  Z) 

FPP  -  FPH  +  FPC 
YFP  -  FPl  -  FPP 
C  write (6,*)  tmg,  fpp 

IF { (YFP1*YFP) .GT. 0. .AND. (YFP2*YFP) ,GT.0. )  GOTO  148 
IF (ABS(FPP-FPl) .LE.0.1)  GO  TO  144 
YCHECK  -  YFP1  *  YFP 
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IF (YCHECK . LE . 0 . 0)  THEN 
TMG2  -  TMG 
GO  TO  143 
ELSE 

TMG1  -  TMG 
GO  TO  142 
ENDIF 

144  TANS  -  TMG 
GO  TO  150 
C 

C  This  is  a  type  A  problem. 

C  Given  heating  time,  solve  for  actual  Fp. 

C 

146  TG  -  T1  -  HJ  * (T1-T0)  *10.**(-TMG  /FH) 

CALL  HEAT  (HJ,  FH,  TO,  Tl,  TG,-1  .|0, 251,  DEL,  TM,  T) 

CALL  SIMP (T, DEL, 251, Z,FPH) 

CALL  FCOL (FFC, CJ,C,T (251 ) ,TW, Z) 

FFP  -  FPH  +  FPC 
GO  TO  150 

148  WRITE (6,149) 

149  FORMAT ('  ', 'PROCESSING  TIME  IS  LARGER  THAN  40  Fp.',/, 

*'  ','Please  modify  the  program!') 

ISC  RETURN 
END 
C 

C  Calcualte  food  temperatures  on  a  heating  curve 
C  The  equations  were  updated  (from  the  1977  Reference) 

C  with  reference  to  Lekvauwa,  A.  N,  and  Hayakawa,  K.,  1986. 

C  J.  Food  Sci.  51(4):  1042-1049,  1056. 

C 

0  *****************************  NOMENCLATURE  *****★*★**★*★*★*★****★*★*★* 
C  DEL  Time  increment  for  heating  phase 

C  NTRM  Number  of  food  temperatures  to  be  estimated.  2  <  NTRM  <-  300 

C  T  Food  temperature  estimated  (Deg.  C.) 

C  TM  Heating  times  at  which  food  temperatures  reach  to  T's 

Q  ************************************************** ************* ******** 

C  - 

SUBROUTINE  HEAT ( HJ, FH, TO , Tl , TG, TMG, NTRM, DEL, TM, T) 

C  - 

COMMON /THI STORY/  TRE 
DIMENSION  T(300) , TM( 300) 

AN(A,AF,AJ)  -  (A/AF  -  ALOG10 (AJ)  )  /  (A/AF) 

BA(AJ,A,AF,BN)  -  A*  (A/AF  -  ALOG10 (AJ) ) ** (BN) 

TA  ( TMA, BAA, AAN) -Tl- (T1-T0) *EXP (-2 . 3  0259*EXP (ALOG ( 

*TMA /BAA) * ( 1 . /AAN) ) ) 

TIA  (BAA, TP, AAN) -BAA* ( (ALOG10 ( (T1-T0) / (Tl-TP) ) )**AAN) 
BB(TLB)-(1./TLB)* (ATAN ( (ALOG10 (T1-T0 ) ) / (ALOG10 (HJ* 

* (T1-T0) ) -TLB/FH) )-0. 785398) 

TB (BBB, TMB) -Tl- (Tl -TO) ** (1 , /TAN(BBB*TMB+0 . 785398 ) ) 

TIB (BBB,TP) - (1 . /BBB) * (ATAN ( (ALOG10 (T1-T0) ) / (ALOG10 (Tl 
*— TP ) ) )-0. 785398) 

BC (TLC) — (1 . /TLC) *AC05 ( (ALOG10 (HJ* (T1-T0) ) -TLC/FH 
* ) / (ALOG 10 (T1-T0) ) ) 

TC (BCC, TMC) -Tl- (T1-T0 ) ** (COS (BCC*TMC) ) 

TIC (BCC, TP)- (1 . /BCC) *ACOS ( (ALOG10 (Tl-TP) ) / (ALOG10 (Tl 
★-T0))) 

TD (TMD)-Tl-HJ* (T1-T0 ) *EXP (-2 . 30259* (TMD/FH) ) 

TID (TP)-FH*ALOG10 (HJ* (T1-T0) / (Tl-TP) ) 

DO  90  1-1,300 
T ( I ) -0 . 0 
90  TM (I )-0 . 0 
NXX-NTRM-1 

IF (H J. LT . 0 . 001) GO  TO  1 
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IF {H J.LT. 0.40) GO  TO  2 
IF (HJ, LE .0.999999) GO  TO  3 
IF (HJ.LE. 1.00001) GO  TO  7 
IF (HJ.GT. 6500. 0)GO  TO  4 
GO  TO  6 

1  WRITE {*,5) 

5  FORMAT  (IX, 'TM  &  T  ESTIMATED  BY  SUBROUTINE  BEAT  ARE  QUESTIONABLE 
♦SINCE  JH  <  0.001') 

2  TL  -  FH  *  {0.3913  -  0.3737  *  ALOGIO(HJ)) 

RN  -  AN (TL, FH,  HJ) 

B  -  BA (HJ, TL, FH, RN) 

IF {TG.LT. 0.0) GO  TO  8 
TEMPL-TD (TL) 

IF (TG.LE . TEMPL) GO  TO  9 
TMH-TID(TG) 

TH-TG 
GO  TO  10 

9  TMH-TIA(B,TG,RN) 

TH-TG 
GO  TO  10 

8  IF (TMG. LT.TL) GO  TO  11 
TH-TD(TMG) 

TMH-TMG 
GO  TO  10 

11  TH-TA(TMG,B,RN) 

TMH-TMG 
10  T (1 ) —TO 
TM  (1)  — 0  . 

DEL— TMH/NXX 
T(NTRM)-TH 
TM (NTRM) — TMH 
DO  100  1-2, NXX 
TMI-DEL* (1-1) 

TM ( I ) — TMI 

IF (TMI.GE.TL)GO  TO  102 
T(I)=TA(TMI,B,RN) 

GO  TO  100 
102  T(I)— TD(TMI) 

100  CONTINUE 
GO  TO  60 

3  TL  -  0 . 9*FH*  { 1 .  -H  J) 

B  -  BB(TL) 

IF (TG.LT. 0.0) GO  TO  19 
TEMPL-TD (TL) 

IF (TG.LE. TEMPL) GO  TO  20 
TMH— TID (TG) 

TH-TG 
GO  TO  21 

20  TMH— TIB (B, TG) 

TH-TG 

GO  TO  21 

19  IF (TMG. LT.TL) GO  TO  22 
TH-TD(TMG) 

TMH-TMG 
GO  TO  21 
22  TH-TB (B, TMG) 

TMH-TMG 

21  T (1 ) -TO 
TM  (1 )  —0 . 

T (NTRM) -TH 
TM (NTRM) -TMH 
DEL— TMH/NXX 
DO  30  1=2, NXX 
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TMI-DEL*(I-1) 

TM(I)-TMI 

IF {TMI . GE . TL) GO  TO  32 
T(I)-TB(B,TMI) 

GO  TO  30 
32  T(I)-TD(TMI) 

30  CONTINUE 
GO  TO  60 

7  IF  (TG. LT. 0. 0)  GO  TO  34 
TMH-TID(TG) 

TH-TG 
GO  TO  35 

34  TH-TD(TMG) 

TMH-TMG 

35  T(1)-T0 
TM(l)-0. 

T(NTRM)-TH 
TM{NTRM)-TMH 
DEL-TMH/NXX 
DO  40  1-2, NXX 
TMI— DEL* (1-1) 

TM {I ) -TMI 

T {I ) — TD (TMI ) 

40  CONTINUE 
GO  TO  60 
4  WRITE (*,43) 

43  FORMAT (IX, *TM  t  T  ESTIMATED  BY  SUBROUTINE  HEAT  ARE  QUESTIONABLE 
♦SINCE  JH  >  6500. 0>) 

6  IF (HJ.LE. 5. 8)  TL  -  0 . 7*FH* (HJ-1 . ) 

IF (HJ.GT. 5. 8)  TL  -  1.54  *FH  *ALOG10 (HJ/1 . 8) 

B  -  BC(TL) 

IF (TG.LT.O.O)GO  TO  44 
TEMPL— TD (TL) 

IF(TG.LE.TEMPL)GO  TO  45 
TMH-TID (TG) 

TH-TG 
GO  TO  46 

45  TMH— TIC (B,  TG) 

TH-TG 

GO  TO  46 

44  IF (TMG.LT.TL) GO  TO  47 
TH-TD(TMG) 

TMH-TMG 
GO  TO  46 
47  TH— TC(B, TMG) 

TMH-TMG 

46  T (1 ) —TO 
TM  (1)  —0 . 

T (NTRM)-TH 
TM  (NTRM)  -TMH 
DEL-TMH/NXX 
DO  55  1-2, NXX 
TMI-DEL* (1-1) 

TM { I ) —TMI 

IF (TMI . GE . TL) GO  TO  57 
T (I ) — TC(B,TMI) 

GO  TO  55 
57  T (I) — TD (TMI) 

55  CONTINUE 
60  RETURN 
END 
C 

C  ESTIMATE  A  STERILIZING  VALUE  FROM  TWO  FOOD  TEMPERATURES 
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DEL  MINUTE  APART  from  each  other  DURING  THE  HEATING  PHASE 

*****************************  NOMENCLATURE  ****************************** 
delf  Estimated  sterilizing  value  (min. ) 

TH  Food  temperature  (TH  >  TL) 

TL  Food  temperature  (TL  <  TH) 

Z  Slope  index  of  thermal  death  time  curve  (C.  Deg.) 
************************************************************************** 


SUBROUTINE  FDIF  (DELF, Tl, TH, TL,DEL,  Z) 


TM-FTG (Tl , TH, TL, 0 . 5*DEL, 0 . , DEL) 

DELF-DEL/ 6 . 0 * (RT (TL, Z ) +4 . *RT (TM, Z) +RT (TH,  Z) ) 

RETURN 

END 


FUNCTION  RT (T,  Z) 


COMMON /THIS TORY/  TRE 

IF (ABS (T-TRE) ,LT.l.E-5)GO  TO  1 

TRAT- (T-TRE) /Z 

IF (TRAT.LT. -6 . 0) GO  TO  3 

RT-10.**TRAT 

GO  TO  2 

3  RT-1.0E-6 
GO  TO  2 

1  RT-1.0 

2  RETURN 
END 


FUNCTION  FX (FA, FB, TA, TB, TX) 


FX-FA+ (TX-TA) * (FB-FA) / (TB-TA) 

RETURN 

END 


FUNCTION  FTG (Tl , TH,TL, TMG, TML, DEL) 


IF (ABS (TMG-TML) ,LE. 1 .  E-S) GO  TO  1 
IF (ABS (Tl-TH) . LE . 1 . E-5) GO  TO  2 
R-(Tl-TH) / (Tl-TL) 

IF (R.GE. 0.9999) GO  TO  2 

FTG-Tl- (Tl-TL) *R** ( (TMG-TML) /DEL) 

GO  TO  3 

1  FTG-TL 
GO  TO  3 

2  FTG“*  (TH+TL)  /  2. 

3  RETURN 
END 

ESTIMATE  A  STERILIZING  VALUE  FROM  A  COOLING  CURVE 

*****************************  NOMENCLATURE  ***** ************* ********* 
TPC  Estimated  sterilizing  value  (min.)  during  cooling  phase 
*********************************************************************** 


SUBROUTINE  FCOL (FPC, CJ, C, TG, TW,  Z ) 


COMMON/THISTORY /  TRE 
COMMON/COMA/ABC (7 ) 
COMMON /COMH/H (7) 
DIMENSION  TMC(7) ,TC{7) 

DO  1  1=1.7 
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TMC{I)-0. 

1  TC{I)-0. 

IF (ABS {CJ-1. 0) .  LT.  1 . OE-4) GO  TO  2 
CALL  COOL{CJ,C,TL,TG,TW,TMC,TC) 

CALL  RATE{FPA,TC,Z,0.,TL) 

60  TO  3 

2  FPA-0. 

TL-0 . 

3  CALL  COOLA {CJ, C,TL, TG, TW, TMC, TC,  Z) 

CALL  RATE{FPB,TC,Z,TL,TMC{7)) 

FPC-FPA+FPB 

RETURN 

END 

ESTIMATE  A  STERILIZING  VALUE  FROM  DATA  ON  FOOD 
TEMPERATURE  COLLECTED  AT.  UNIFORM  TIME  INTERVALS 

****************** ***********  NOMENCLATURE  *************************** 
DELX  uniform  time  interval  (min.) 

NO  Number  of  temperature  data  collected 
Y  Vector  of  temperature  data  {Deg.  C.) 

***★•**'*'*'*■*■*★■*★★'**'*■**'*★★★★'*'**★★'*  **■#*<**<****•#  -ft*-*-#*  *♦**#***#♦*♦♦*♦♦♦*♦*♦**♦ 


SUBROUTINE  SIMP (Y, DELX, NO, Z,FP) 


COMMON /TH I STORY/  TRE 
DIMENSION  Y (300) 

NN-NO/2 

NM-NN*2 

IF (NM.EQ.NO)GO  TO  10 

NM-N0 

GO  TO  11 

10  NM-N0-1 

11  IF (NO-3) 1,2,3 

1  IF (N0.EQ. 2) GO  TO  12 
IF {NO .EQ, 1) GO  TO  13 
NRITE {*,14) 

14  FORMAT {»  ’ ,  ’NO  FP  IS  ESTIMATED  SINCE  NO  <  1  AT  SUBROUTINE  SIMP*) 
13  FP-0 . 

GO  TO  6 

2  FP-DELX/3. * (RT{Y{l),Z)+4, *RT ( Y ( 2) ,  Z) +RT {Y (3)  ,  Z) ) 

GO  TO  6 

3  FP-RT{Y{1),Z)+RT(Y(NM),Z) 

M-NM-1 

FPA-0. 

DO  4  1-2, M,  2 

4  FPA— FPA+RT (Y (I) , Z) 

IF {NO. EQ, 4) GO  TO  15 
FPB-0 . 

M-NM-2 

DO  5  1-3, M,  2 

5  FPB— FPB+FT {Y {I )  ,  Z) 

GO  TO  16 

15  FP— DELX/ 3 . * (FP+ 4 . *FPA) 

GO  TO  20 

16  FP— DELX/3 . * {FP+4 . *FPA+2 . *FPB) 

IF (NM.EQ.NO)GO  TO  6 

20  FP— FP+DELX/2 . * {RT (Y {N0-1) , Z)+RT {Y  (NO) ,  Z)  ) 

GO  TO  6 

12  FP— DELX/2 . * {RT {Y {1) , Z) +RT (Y{2) ,  Z) ) 

6  RETURN 
END 
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C  CALCULATE  7  TEMPERATURES  ON  A  CURVILINEAR  PORTION  OP 

C  A  COOLING  CURVE.  THESE  TEMPERATURES  ARE  THEN  USED  TO 

C  CALCULATE  A  STERILIZING  VALUE  BY  USING  THE  7  POINT 
C  LOBBATO  QUADRATURE  FOBMULA. 

C 

c  **************  ***********  it**.**  **  -nomenclature  *********  *  *  **********  *  ***** 

C  PC  Slope  index  of  cooling  curve 

C  *************  *.*,*  ******  ***  *****  *  *,*  *  ****  *  *  *  *  *.*.**  *.*.*,*  ***********  **.*******,* 

SUBROUTINE  COOL  ( CJ,FC,TL ,  TG ,TW,TM,:T ) 

C  - - - - 

COMMON/COMA/ABC (7) 

COMMON/THI STORY/  TRE 
DIMENSION  TM<7),T<7) 

TXA  { Y ,  BY , YN) -TW+ (TG-TW) *EXP (-2 . 30 258 5*EXP  (  ALQG  (Y /BY )*<1 . /YN) )) 

TXB (Y, BY )-TW+ (TG-TW)** (1 ./TAN(BY*Y+0. 785398) ) 

TXC <Y,BY)-TW* (TG-TW) ** (COS (BY*Y) ) 

TMX (X, TK) -TK/2 .+TK*X/2 . 

DO  50  1-1,7 
TM(I)-0. 

50  T (I ) —0 . 

IF (C J. GE . 0 . 001 ) GO  TO  11 

10  WRITE  (*,12) 

12  FORMAT (IX, 'TM  &  T  VLAUES  ESTIMATED  BY  SUBROUTINE  COOL .ARE  QUEST! 
*ONABLB  SINCE  CJ  <  0.001') 

GO  TO  13 

11  IF  (CJ.  LE.  0 , 4)  GO  'TO  13 

IF  (CJ.LE.  0.999999)  GO  TO  14 
IF (CJ.LE. 1.00001) GO  TO  15 
IF (CJ.LE. 6500. 0)GO  TO  16 
WRITE (*,17) 

17  FORMAT (IX, *TM  &  T  VALUES  ESTIMATED  BY  COOL  ;ABE  QUESTION 
*ABLE  SINCE  CJ  >  6500.0' ) 

GO  TO  16 

13  TL  -  FC  *  <0.3913  -  0.3737  *  ALOG10 (CJ) ) 

EN  -  (TL/CJ  -  .ALOGIO.(.CJ)  )  /  (TL/CJ) 

B  -  TL  *  (TL/CJ  -  ALOG10 (CJ) )** (EN) 

T(1)-TG 

TM(l)-0. 

DO  18  1-2,7 

IF ( I . EQ . 4 ) GO  TO  19 

TMZ-TMX (ABC ( I )  ,  TL) 

TM (I ) — TMZ 

20  TXT— TXA (TM (I)  ,  B,  EN) 

T.  (I )  — TXT 

GO  TO  18 
19  TM (I) — TL/2 . 

GO  TO  20 

18  CONTINUE 
GO  TO  8 

15  WRITE (*,21) 

21  FORMAT  (IX,  'CALLING  EXIT  FROM  COOL  -SINCE  CJ«*1 .0'  ) 

GO  TO  8 

14  TL-0.9*FC* (l.-CJ) 

B- (1 . /TL) * (ATAN (ALOG10 (TG-TW) / (ALOG10 (CJ* (TG-TW) )-TL/FC> )- 
*0.7853982) 

TM (1) —0 . 

T  ( 1 )  — TG 

DO  22  1-2,7 

IF ( I . EQ . 4 ) GO  TO  23 

TMZ-TMX (ABC ( I )  ,  TL) 

TM(I)  -TMZ 

24  TXT=TXB (TM (I )  ,B) 


178 


on  o  o o  o o 


5/3/91  1:57  PM 


Yams  enterprise :bruce :0P2 .F 


T (I) “TXT 
GO  TO  22 
23  TM(I)-TL/2. 

GO  TO  24 
22  CONTINUE 
GO  TO  8 

16  IF (CJ. LE .5.8}  TL-0.7*FC*(CJ-1. > 

IF (C J.GT. 5.8)  TL  -  1.54  *FC  *ALOG10 (C J/l . 8) 

B- <1 . 0 /TL) *ACOS ( (ALOGIO (CJ*  (TG-TW) J-TL/FC) /ALOG1Q (TG-TW) ) 
TM(l>-0. 

T(1)-TG 
DO  25  1-2,7 
IF  (I . EQ . 4 ) GO  TO  26 
TMZ-TMX (ABC (I > , TL ) 

TM(I)— TMZ 

27  TXT— TXC (TM ( I ) , B ) 

T  (I)— TXT 
GO  TO  25 
26  TM(I)— TL/2. 

GO  TO  27 
25  CONTINUE 
8  RETURN 
END 

CALCULATE  7  TEMPERATURES  ON  A  LINEAR  PORTION 
OF  A  COOLING  CURVE 


SUBROUTINE  COOLA (C J, FC, TL, TG, TW, TM, T , Z) 


DIMENSION  TM (7),T(7) 

COMMON/COMA/ABC (7) 

COMMON /TH I STORY/  TRE 

TX (Y) — TW+C J* (TG-TW) *EXP (-2. 302585*Y/FC) 

TMX (X, TBX, TIN)  -  (TBX+TIN) /2 .  +  (TBX-TIN) *X/2 . 

TMY (X, TBX) -TBX/2 . +TBX*X/2 . - 

TIM (X) — FC*ALOG10 (C  J*  (TG-TW) / (X-TW) ) 

DO  50  1-1,7 
TM (I) —0 .0 
50  T (I)-0 . 0 

IF (CJ. LE . 0 . 999999)GO  TO  8 
IF (CJ.LE.l.OOOOl)GO  TO  9 
GO  TO  8 
9  TBL-TG 

_ WHEN  CJ—1.0,THE  COMPUTATIONAL  FLOW  IS  BLANCHED  TO  9.  IN 

THIS  CASE  TBL=-TG  SINCE  THERE  IS  NO  CURVELINEAR  PORTION. 
GO  TO  10 
8  TBL-TX(TL) 

10  IF (TRE . NE .  (5 . *Z> )GO  TO  20 
TLOW-l.E-6 
GO  TO  21 

20  TLOW-TRE  -  5.*Z 

21  IF (TLOW.GE.TG)GO  TO  1 
IF (TLOW.GE.TBL) GO  TO  1 
IF (TLOW.GT.TW)GO  TO  2 
IF (TLOW.LE.TW)GO  TO  3 

1  TEND— TIM ( (TBL+TW) /2 . ) 

7  CONTINUE 
T (1)— TBL 
TM ( 1 ) — TL 
DO  4  1-2,7 
IF (I.EQ.4)GO  TO  5 
IF (CJ.LE.O . 9 9 9999) GO  TO  11 
IF (CJ.LE ,1.00001) GO  TO  12 
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11  TMT-TMX (ABC ( I ) , TEND , TL) 

6  TM(I)-TMT 

GO  TO  13 

12  TMT-TMY (ABC (I ) , TEND ) 

GO  TO  6 

13  T  (I ) “TX (TMT) 

GO  TO  4 

5  IF (CJ.LE . 0 . 999999) GO  TO  14 
IF (CJ.LE . 1 . 00001) GO  TO  15 

14  TMT” (TEND+TL) /2 . 

GO  TO  6 

15  TMT-TEND/2. 

GO  TO  6 

4  CONTINUE 
GO  TO  16 

2  TEND— TIM (TLOW) 

GO  TO  7 

3  TEND-TIK(TW+0.01* (TBL-TW)  ) 

GO  TO  7 

16  RETURN 
END 

C 

C  CALCULATE  STERILIZING  VALUES  BY 
C  APPLYING  LOBBATO  7  POINT  QUADRATURE  FORMULA 
C 

C  *****************************  NOMENCLATURE  *************************** 
C  R  Sterilising  value  calculated  (min.) 

C  T  Seven  temperatures  (Deg.  C.)  used  to  calculate  R  value. 

C  TBGIN  Lower  time  limit  of  integration  (min.) 

C  TEND  Upper  time  limit  of  integration  (min.) 

Q  *********************************************************************** 

C  - 

SUBROUTINE  RATE (R, T, Z, TBGIN, TEND) 

C  - 

COMMON/ COMH/H (7) 

COMMON/THISTORY/  TRE 
DIMENSION  T (7) 

IF (T (1) . NE.TRE) GO  TO  2 
RA-H(l) 

GO  TO  4 

2  RA”H(1) *10.**((T(1) -TRE) /Z) 

4  CONTINUE 
DO  1  1-2,7 

IF (T (I) .NE.TRE) GO  TO  5 
RA-RA+H(I) 

GO  TO  1 

5  RA-RA+H (I)*10.** ( (T(I)-TRE) /Z) 

1  CONTINUE 

IF (TBGIN . GE . 1 . OE-3)GO  TO  6 
R-TEND/2 . *RA 
GO  TO  7 

6  R“ (TEND-TBGIN) /2 . *RA 

7  RETURN 
END 
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/  ABSTRACT 


Investigations  for  the  slowest-heating  point  and  apparent  heat  transfer  coefficients  (h)  for 
semi-rigid  plastic  multi-compartment  trays  were  conducted.  The  temperature  profile  and 
slowest-heating  point  of  the  compartment  were  described  in  the  paper.  As  far  as  lethality  <_ 
values  are  concerned,  the  geometric  center  could  still  be  used  as  the  slowest-heating  point 
for  thermal  processing.  The  apparent  heat  transfer  coefficients  for  both  angle  trays  and 
multi-compartment  trays  were  determined  by  an  optimization  method  based  on  three 
dimensions.  The  gap  effects  were  discussed  and  gaps  for  pratical  design  were  suggested. 
The  investigations  may  have  been  fundamental  to  optimizing  design  of  multi-compartment 
trays. 
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INTRODUCTION 


Retortable  plastic  trays  have  gained  popularity  in  recent  years  because  of  their  light 
weight,  reasonably  long  non-refrigerated  shelf- -life  (1  to  2  years),  microwaveability  and 
design  flexibility  (Rice,  1988 ).  Most  of  the  commercial  retortable  plastic  food  packages  are 
single  compartment  trays.  However,  there  is  increasely  interest  in  multi-ojmpartment  trays. 
One  multi-compartment  tray  usually  has  three  compartments.  So  that  users  could  have  three 
different  items  for  one  meal,  Besides  the  multi-compartment  tray  may  have  potential 
advantiges  of  reducing  material  and  energy  consumption  compared  to  single  trays.  To 
optimize  the  design  of  the  tray,  it  is  necessary  to  study  thermal  properties  of  multi- 
compartment. 

The  effectiveness  of  the  thermal  sterilization  process  may  be  measured  by  the  Fo  value 
at  the  slowest-heating  point  inside  the  food.  Berry  and  Bush  (1988)  found  that  the  location 
of  the  slowest-heating  point  changed  with  different  orientations  of  metal  lids  of  plastic 
containers,  in  which  conduction-heating  food  was  packaged.The  lowest  temperature  in  the 
food  was  located  by  moving  thermocouples  in  vertical  axis  of  the  can.  Since  accurate 
predictions  are  not  available  for  its  location,  a  group  or  movement  of  thermocouples  is 
usually  applied  to  measure  temperatures  at  different  possible  positions. 

Peterson  and  Adams  (1983)  used  empirical  correlations  for  heat  transfer  in  infinite  slab 
geometry  based  on  the  slope  of  heating  curve  (Ball  and  01son,1957)  to  determine  apparent 
heat  transfer  coefficient  In  1989  a  computer-based  optimization  method  was  developed  by 
Lebowitz  and  Bhowmik  to  determine  retortable  pouch  apparent  heat  transfer  coefficients. 
The  assumption  of  infinite  slab  for  thin  pillow-like  pouches  made  h  converge  in  one 
biscdonal  subroutine. 

Many  factors  influencing  the  apparent  heat  transfer  coefficients  have  been  studied. 
Peterson  and  Adams  (1983)  studied  flow  rates  effects  on  the  apparent  heat  transfer 
coefficient  of  retortable  pouches  of  institutional  sue.  Weintraub  et  al.(1989)  has  found  that 
small  amount  of  entrapped  air(<5ml)  inside  a  package  can  lower  h  when  processed  at  low 
air  overpressure  (<40kPa).  However  the  gap  effect  has  not  been  studied. 

Apparent  heat  transfer  coefficient  may  be  defined  as  the  following  equation  (R.LJ2arie): 


_L+*+_L 

hsi  K  hsZ 
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where  h=apparent  (or  overall)  heat  transfer  coefficient,  hii,h*2=surface  heat  transfer 
coefficient  for  outside  and  inside  of  tray  separately,  x*thickness  of  tray  material, 
K=thermal  conductivity  of  tray  material. 

Brick-like  single  tray  has  six  sides  of  heat  transfer  from  outside  to  inside  and  driving 
force  from  each  symmetric  side  is  also  symmetric.  But  for  a  compartment  with  a  gap  in  one 
or  two  sides  hsi  would  be  different,  because  gaps  make  convection  different  of  heating 
medium.  Therefore  h  and  driving  force  of  heat  transfer  would  be  different  and 
nonsymmetric,  and  the  slowest-heating  point  may  shift  away  from  the  geometric  center. 

The  objectives  of  this  investigation  were  to  examine  the  influencing  extent  of  gaps 
between  compartments  on  apparent  heat  transfer  coefficients  and  location  of  the  slowest- 
heating  point  for  the  multi-compartment  tray. 

MATERIAL  AND  METHOD 
Multi-compartment  troy  and  thermocouple  location 

Multi-compartment  trays  were  made  by  thermoforming  multilayered  sheets  containing 
polypropylene  and  ethylene  vinyl  alcohol  (PP-EVOH-PP).  Single  trays  were  cut  from 
multi-compartment  trays  with  sealing  edges.  The  trays  were  sealed  with 
lidstock(aluminum-plastics).  The  test  tray  was  one  of  four  various  trays  which  were 
designed  to  meet  the  lethal  requirements  of  different  food.  The  dimension  of  test 
compartments  were  190x64x36  mm  and  90x94x36  mm  (test  of  h  only).  The  multi¬ 
compartment  tray  had  an  original  gap  of  10  mm.  The  gap  of  S  and  2.5  mm  was  reduced  by 
sticking  several  pieses  of  the  multilayers  with  silicone.  For  the  comparison  of  h,  single 
trays  and  compartment  trays  were  cooked  simultaneously.  Duplicated  experiments  were 
conducted  to  obtain  each  data  point. 

A10  %  of  bentonite  solution  with  thermal  conductivity  k  0.637  w/m.c,  density  1.07 
g/ml  and  heat  capacity  3604  J/KgK  (Niekamp  et  al.,1984)  was  used  as  a  conduction¬ 
heating  food  simulation  model  and  was  packaged  to  the  thickness  of  34  mm. 

Thermocouples(C-4,C-S.l,O.F.ECKLUND)  were  located  at  half  thickness  5mm  apart 
(10mm  last)  from  the  center  of  Compartment  1  by  supports  on  the  line  as  shown  in  Fig.l. 
This  was  for  location  of  the  slowest-heating  point  For  comparison  of  h  between  single 
trays  and  compartments,  the  thermocouples  were  in  the  geometric  centers.  Holes  were 
punched  in  the  trays  to  allow  for  insertion  of  the  thermocouples. 

Apparatus  and  materials 
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STOCK  retort  (pilot  rotor  900)  was  used, which  had  a  storage  tank  and  a  heating  tank 
with  temperature  and  air  pressure  control.  For  improved  convection  the  water  in  the  heating 
tank  was  circulated  by  a  circulation  pump  (Fig-2).  A  data  acquisition  system  was  installed 
with  a  computer(IBM)  to  automatically  record  time-temperature  history. 

Trays  were  put  between  the  plastic  rackes  of  thickness  of  12mm  with  grids  of 
33x33mm  (20x20mm  hole). 


Thermal  processing  conditions 

The  steam-water  heating  medium  of  10-15*C  above  121*C  was  stored  ip  the  storage 
tank  at  a  pressure  of  200  kPa .  Heating  was  being  started  by  opening  the  connection  valve 
between  the  two  tanks.  During  heating,  the  circulation  pump.pressure  and  temperature 
controllers  were  cm.  It  took  10-12  min  for  come-up  time,  40-55  min  for  heating  (121*0) 
and  25-40  min  for  cooling(dependent  on  dimensions  of  the  tray  and  the  desired  Fo  values). 
Intervals  of  0.5  min  were  set  for  time- temperature  history  recording. 


Optimization  method 


Once  the  slowest-heating  point  during  the  heating  cycle  was  found,  it  was  possible  to 
determine  h  by  an  optimization  method.  Lebowitz  and  Bhowtnik  (1989)  optimized  h  for 
pouches  using  the  analytical  equation  developed  by  Ball  and  01son(1957): 

h-k  V  2.303/(ctfh)  tan  V  2.303a2/(otfh)  (2) 

Where  h=apparent  heat  transfer  coefficient,  k=thermal  conductivity,  a  =  thermal  diffusivity, 
fh=slope  index  of  heating  curve  and  a=half  thickness  of  the  slab.  For  the  thickness  of  less 
than  1/8  - 1/10  of  the  width,  it  is  reasonable  to  optimize  h  with  one  dimension.  But  for  trays 
like  bricks,  three  dimensions  should  be  considered.  Take  Pflug's  suggestion(1965): 


fh  fl+fw+fd 


(3) 


fj(j=l.w,d)  may  be  obtained  by  the  following  equations(Ball  and  Olson): 


NBij  =  ^  =  |3ij  tanpij 


(4) 
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(5) 


f,  2,303aj2 
J  Pu2  a 

where  fl.fw  and  fd  =  slope  index  of  infinite  slabs  for  lenth  .width  and  depth  of  trays 
respectively.  NBi  =  number  of  Biot,  Bi  =  Nth  root  of  the  boundary  equation  for  the  slab. 
The  computer  program  consisted  of  two  bisectional  subroutines  for  Bi  and  h.  Boundaries 
for  searching  range  were  set  small  and  big  enough  to  cover  the  solution.  Fig.3  showes  the 
flow  chart  of  optimization  prgram. 

RESULTS  AND  DISCUSSION 
The  slowest-heating  point  and  Fo  value 

During  the  thermal  process  the  slowest-heating  point  held  the  lowest  Fo  value.  For 
single  containers  with  uniform  heating  mediums  geometric  centers  were  the  slowest-heating 
point.  But  for  compartments  with  gaps  in  between,  the  slowest-heating  point  moved  4—5 
mm  away  from  the  geometric  center  to  gap  sides.  Fig.4  showed  temperature-location 
profile  at  different  time  in  the  heating  cycle.  The  longer  the  food  had  been  cooked,  the  less 
the  temperature  differences  would  be.  If  the  food  was  overcooked  for  a  certain  time,  the 
temperature  at  all  locations  would  reach  retort  temperature, and  the  profile  would  be  a  level 
line.  The  possible  error  of  measured  lowest  temperature  at  5  mm  distance  from  the 
geometric  center  was  -0.3%,  since  the  temperature  profile  may  be  reasonably  assumed 
symmetric  and  partially  linear  while  the  lowest  temperature  was  above  90‘C. 

Theoretically  thermal  death  time  F  is  integrated  from  lethal  rate  curve  against  time.  We 
calculated  Fo  value  approximately  by  the  following  equation  with  LOTUS  program: 

Fo  =  2  jQd^TTiJ/z  ^ 


where  Fo  =  thermal  death  time  at  121*C  for  organisms  with  z=10*C  (min),  z  =  *C 
temperature  change  required  to  change  the  TDT  by  a  factor  of  10  (*C),  t  =  time  interval  for 
temperature  record  (0.5  min),  Ti  =  recorded  temperatures  with  0.5  min  interval  (*C)  .Table 
1  showes  with  increasing  of  gap  size,  influence  of  gap  decreased,  though  the  biggest 
difference  was  only  5%.  Therefore  the  geometric  centers  could  still  serve  as  the  slowest- 
heating  points  for  the  purpose  of  simulating  thermal  process. 
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Optimized  apparent  heat  transfer  coefficient 

Both  single  trays  and  compartments  had  typical  heating  penetration  curves.  The  curves 
for  geometric  center  versus  the  slowest-heating  point  for  compartment  1  were  shown  op 
Fig.5  and  compartments  versus  single  trays  were  shown  on  Fig. 6.  The  data  of 
experiments  were  so  good  and  reproducable  that  made  standard  error  <  0.0003  for 
regression  of  fh. 

Computer  program  ran  without  printing  "fair*.  Bij  converged  on  IBijtanBlj-  NBil  £ 
0.0001  or  1  8llj'Sl2  1  £  0.00001.  The  optimization  ends  when  lf-fid<  0.01  or  $ 

0.001  or  a  maximum  of  50  iteration  has  been  reached.  The  mean  of  optiimized  apparent 
heat  transfer  coefficient  was  133  W/m2K  with  standard  deviation  of  21  W/m2K  for 
compartment  trays  and  200  W/m2K  with  standard  deviation  of  73  WAn2K  for  single  trays  . 


Less  conuection  on  gap  sides 


Gaps  affected  both  location  of  the  slowest-heating  point  and  apparent  heat  transfer 
coefficients  of  compartment  trays.  McCabe  and  Smith  (1976)  established  empirical 
correlation  for  understanding  of  factors  affecting  h  in  turbulent  flow  heat  exchange  process 
for  the  analogous  tubular  case  by  dimensionless  proup  analysis.  For  the  lack  of  better 
equations  for  rectangular  case,  the  correlation  pertaining  to  mass  velocity  may  be  used  to 
explain  gap  effects: 


h  a  G0-8  (7) 

where  h=appaerent  heat  transfer  coefficient  and  G=  mass  velocity.  Peterson  and  Adams 
(1983)  presented  data  of  apparent  heat  transfer  coefficient  for  institute-size  retortable  plastic 
pouches  with  changing  of  mass  velocity.  As  the  velocity  of  heating  medium  increased  10 
times,  h  increased  only  about  a  half.  That  meant  for  the  rectangular  case  Formula  7  should 
be  modefied  with  a  smaller  power. 

In  the  gap  of  compartments  convection  was  greatly  reduced  and  less  heat  was 
transfered  through  the  gap  sides.  This  is  the  same  as  mass  velocity  is  decreased  in  gap 
sides.  Factors  of  affecting  h  may  be  gap  sizes,  area  and  distance  to  geometric  center. 
However  the  test  tray  was  chosen  among  four  available  sizes  of  multi-compartment  trays 
considering  all  above  factors  to  the  most  effective.  Gap  sizes  seemed  not  influencing  the 
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location  of  the  slowest  point  and  apparent  heat  transfer  coefficients  too  much.  If 
gap=0,two  compartments  become  one  single  tray  and  the  slowest-heating  point  should  be 
the  geometric  center.  It  was  sure  that  between  2.5  mm  to  0  there  would  be  a  critical  gap 
size  below  which  the  slowest-heating  point  and  h  would  greatly  influenced.  Anyway  the 
gap  of  2.5  mm  was  small  enough  for  the  investigation  because  the  sealing  and 
thermoforming  of  multi-compartment  trays  needed  bigger  gaps. 

CONCLUSIONS 

The  gap  affects  Fo  value  and  h  for  multi-compartment  trays.  Fo  was  found  changing 
from  5%  to  0.9%  with  varies  of  gap  from  2.5  to  10  mm  respectively.  The  apparent  heat 
transfer  coefficient  seemed  almost  no  changes  with  difference  of  gap  sizes.To  determine  h 
or  measure  Fo  value  for  thermal  processing  of  the  multi-compartment  tray,  geometric 
centers  may  be  used  as  the  slowest-heating  point.  The  developed  optimization  method  may 
be  feasible  to  estimate  h  of  retortable  plastic  trays  and  other  brick-like  food  package.  A  gap 
of  at  least  5-10  mm  between  compartments  was  suggested  to  make  effective  sealing  and 
assure  small  gap  effects. 
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Table.  1  Fo  DIFFERENCES  BETWEEN  GEOMETRIC  CENTER  AND  SLOWEST- 
HEATING  POINT  OF  COMPARTMENT  1 


192 


FIG.  1  MULTI-COMPARTMENT  TRAY  AND 
THERMOCOUPLE  LOCATION 


VENT  HOT  WATER 


Fig.  2  Experimental  tray  retort  configuration 
for  processing  with  heated  water 
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Fig. 3  FLOW  CHART  OF  OPTIMIZATION  PROGRAM 
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Fig.5  TYPICAL  HEATING  CURVES  FOR  COMPARTMENT 
(GEOMETRIC  CENTERS  VERSUS  SLOWEST -HE ATIN G  POINT) 
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Eg.6  TYPICAL  HEATING  CURVES  FOR 
COMPARTMENT  TRAY  VERSUS  SINGLE  TRAY 
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